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CHAPTER  1 


INTRODUCTION 


The  Ada  Implementation  described  above  was  tested  according  to  the  Ada 
Validation  Procedures  (Pro90]  against  the  Ada  Standard  [Ada83]  using  the 
current  Ada  Compiler  Validation  Capability  (ACVC) .  This  Validation  Summary 
Report  (VSR)  gives  an  account  of  the  testing  of  this  Ada  implementation. 

For  any  technical  terms  used  in  this  report,  the  reader  is  referred  to 
[Pro90].  A  detailed  description  of  the  ACVC  may  be  found  in  the  current 
ACVC  User's  Guide  [UG89]. 


1.1  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  country,  the  Ada 
Certification  Body  may  make  full  and  free  public  disclosure  of  this  report. 
In  the  United  States,  this  is  provided  in  accordance  with  the  "Freedom  of 
Information  Act"  (5  U.S.C.  #552).  The  results  of  this  validation  apply 
only  to  the  computers,  operating  systems,  and  compiler  versions  identified 
in  this  report. 

The  organizations  represented  on  the  signature  page  of  this  report  do  not 
represent  or  warrant  that  all  statenents  set  forth  in  this  report  are 
accurate  and  complete,  or  that  the  subject  implementation  has  no 
nonconformities  to  the  Ada  Standard  other  than  those  presented.  Copies  of 
this  report  are  available  to  the  public  from  the  AVF  which  performed  this 
validation  or  fr«n: 

National  Technical  Information  Service 
5285  Port  Royal  Road 
Springfield  VA  22161 

Questions  regarding  this  report  or  the  validation  test  results  should  be 
directed  to  the  AVF  which  perfonned  this  validation  or  to: 

Ada  Validation  Organisation 

Computer  and  Software  Engineering  Division 

Institute  for  Defense  Analyses 

1801  North  Beauregard  Street 

Alexandria  VA  22311-1772 
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1.2  REFERENCES 

[Ada83]  Reference  Manual  for  the  Ada  Proaramminq  Lanouace. 

ANSI/MIL-STD-1815A,  February  1983  and  ISO  86S2-1987. 

[Pro90]  Ada  Compiler  Validation  Procedures .  Version  2.1,  Ada  Joint 
Program  Office,  August  1990. 

[UG89]  Ada  Compiler  Validation  Capability  Oser's  Guide.  21  June  1989. 


1.3  ACVC  TEST  CLASSES 

Compliance  of  Ada  implementations  is  tested  by  means  of  the  ACVC.  The  ACVC 
contains  a  collection  of  test  programs  structured  into  six  test  classes: 

A,  B,  C,  D,  E,  and  L.  The  first  letter  of  a  test  name  identifies  the  class 
to  which  it  belongs.  Class  A,  C,  D,  and  E  tests  are  executable.  Class  B 
and  class  L  tests  are  expected  to  produce  errors  at  compile  time  and  link 
time,  respectively. 

The  executable  tests  are  mitten  in  a  self-checking  manner  and  produce  a 
PASSED,  FAILED,  or  NOT  APPLICABLE  message  indicating  the  result  when  they 
are  executed.  Three  Ada  library  units,  the  packages  REPORT  and  SPPRT13, 
and  the  procedure  CRECK_FILE  are  used  for  this  purpose.  The  package  REPORT 
also  provides  a  set  of  identity  functions  used  to  defeat  some  ccotpiler 
optimizations  allowed  by  the  Ada  Standard  that  would  circtunvent  a  test 
objective.  The  package  SPPRT13  is  used  by  many  tests  for  Chapter  13  of  the 
Ada  Standard.  The  procedure  CHECK_FILE  is  used  to  check  the  contents  of 
text  files  written  by  some  of  the  Class  C  tests  for  Chapter  14  of  the  Ada 
Standard.  The  operation  of  REPORT  and  CHECK_FILE  is  checked  by  a  set  of 
executable  tests.  If  these  units  are  not  operating  correctly,  validation 
testing  is  discontinued. 

Class  B  tests  check  that  a  compiler  detects  illegal  language  usage.  Class 
B  tests  are  not  executable.  Each  test  in  this  class  is  compiled  and  the 
resulting  compilation  listing  is  examined  to  verify  that  all  violations  of 
the  Ada  Standard  are  detected.  Some  of  the  class  B  tests  contain  legal  Ada 
code  which  must  not  be  flagged  illegal  by  the  compiler.  This  behavior  is 
also  verified. 

Class  L  tests  check  that  an  Ada  implementation  correctly  detects  violation 
of  the  Ada  Standard  involving  multiple,  separately  compiled  units.  Errors 
are  expected  at  link  time,  and  execution  is  attempted. 

In  soine  tests  of  the  ACVC,  certain  macro  strings  have  to  be  replaced  by 
implementation-specific  values  —  for  example,  the  largest  integer.  A  list 
of  the  values  used  for  this  implementation  is  provided  in  Appendix  A.  In 
addition  to  these  anticipated  test  modifications,  additional  changes  may  be 
required  to  remove  unforeseen  conflicts  between  the  tests  and 
implementation-dependent  characteristics.  The  modifications  required  for 
this  implementation  are  described  in  section  2.3. 
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For  each  Ada  implementation,  a  customized  test  suite  is  produced  by  the 
AVF.  This  customization  consists  of  making  the  modifications  described 
in  the  preceding  paragraph,  removing  withdravm  tests  (see  section  2.1)  and, 
possibly  some  inapplicable  tests  (see  Section  2.2  and  [UG89]). 

In  order  to  pass  an  ACVC  an  Ada  implementation  must  process  each  test  of 
the  customized  test  suite  according  to  the  Ada  Standard. 


1.4  DEFINITION  OF  TERMS 

Ada  Compiler  The  software  and  any  needed  hardware  that  have  to  be  added 
to  a  given  host  and  target  computer  system  to  allow 
transformation  of  Ada  programs  into  executable  form  and 
execution  thereof. 

Ada  Compiler  The  means  for  testing  compliance  of  Ada  implementations. 
Validation  consisting  of  the  test  suite,  the  support  programs,  the  ACVC 
Capability  user's  guide  and  the  template  for  the  validation  summary 

(ACVC)  report. 

Ada  An  Ada  compiler  with  its  host  computer  system  and  its 

Implementation  target  computer  system. 

Ada  Joint  The  part  of  the  certification  body  which  provides  policy  and 

Program  guidance  for  the  Ada  certification  system. 

Office  (AJPO) 

Ada  The  part  of  the  certification  body  which  carries  out  the 

Validation  procedures  required  to  establish  the  compliance  of  an  Ada 
Facility  (AVF)  implementation. 

Ada  The  part  of  the  certification  body  that  provides  technical 

Validation  guidance  for  operations  of  the  Ada  certification  system. 

Organization 
(AVO) 

Compliance  of  The  ability  of  the  implementation  to  pass  an  ACVC  version, 
an  Ada 

Implementation 

Computer  A  functional  unit,  consisting  of  one  or  more  computers  and 

System  associated  software,  that  uses  coomon  storage  for  all  or 

part  of  a  program  and  also  for  all  or  part  of  the  data 
necessary  for  the  execution  of  the  program;  executes 
user-written  or  user-designated  programs;  performs 
user-designated  data  manipulation,  including  arithmetic 
operations  and  logic  operations;  and  that  can  execute 
programs  that  modify  themselves  during  execution.  A 
computer  system  may  be  a  stand-alone  unit  or  may  consist  of 
several  inter-connected  units. 
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Conformity 


Customer 


Declaration  of 
Conformance 


Host  Computer 
System 

Inapplicable 

test 

ISO 

LKM 


Operating 

System 


Target 

Computer 

System 

Validated  Ada 
Compiler 

Validated  Ada 
Implnsantation 

Validation 


Withdrawn 

test 


Fulfillment  by  a  product,  process  or  service  of  all 
requirements  specified. 

An  individual  or  corporate  entity  who  enters  into  an 
agreement  with  an  AVF  which  specifies  the  terms  and 
conditions  for  AVF  services  (of  any  kind)  to  be  performed. 

A  formal  statement  from  a  customer  assuring  that  conformity 
is  realized  or  attainable  on  the  Ada  implementation  for 
which  validation  status  is  realized. 

A  computer  system  where  Ada  source  programs  are  transformed 
into  executable  form. 

A  test  that  contains  one  or  more  test  objectives  found  to  be 
irrelevant  for  the  given  Ada  implementation. 

International  Organization  for  Standardization. 

The  Ada  standard,  or  Language  Reference  Manual,  published  as 
ANSI/MIL-STD-1815A-1983  and  ISO  8652-1987.  Citations  from 
the  LRM  take  the  form  "<section>.<subsection>:<paragraph>. " 

Software  that  controls  the  execution  of  programs  and  that 
provides  services  such  as  resource  allocation,  scheduling, 
input/output  control,  and  data  management.  Usually, 
operating  systems  are  predominantly  software,  but  partial 
or  complete  hardware  implementations  are  possible. 

A  computer  system  where  the  executable  form  of  Ada  programs 
are  executed. 


The  compiler  of  a  validated  Ada  implementation. 


An  Ada  implementation  that  has  been  validated  successfully 
either  by  AVF  testing  or  by  registration  [Pro90]. 

The  process  of  checking  the  conformity  of  an  Ada  compiler  to 
the  Ada  programming  language  and  of  issuing  a  certificate 
for  this  implementation. 

A  test  found  to  be  incorrect  and  not  used  in  conformity 
testing.  A  test  may  be  incorrect  because  it  has  an  invalid 
test  objective,  fails  to  meet  its  test  objective,  or 
contains  erroneous  or  illegal  use  of  the  Ada  programming 
language. 
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CHAPTER 


2 


implementation  dependencies 


2 . 1  WITHDRAWN  TESTS 

Th«  following  tmutm  hav*  baan  withdrawn  by  tha  AVO.  Tha  rationala  for 
withdrawing  aaeh  tast  ia  availabla  from  aithar  the  AVO  or  tha  AVF.  Tha 
publication  data  for  thia  liat  of  withdravm  taata  ia  02  Auguat  1991. 


E28005C 

B28006C 

C32203A 

C34006D 

C35508I 

C35508J 

C35508M 

C35508N 

C35702A 

C35702B 

B41308B 

C43004A 

C4S114A 

C4S346A 

C45612A 

C45612B 

C45612C 

C45651A 

C46022A 

B49008A 

B49008B 

A74006A 

C74308A 

B83022B 

B83022H 

B83025B 

B83025D 

B83026B 

C83026A 

C83041A 

B85001L 

C86001F 

C94022A 

C97116A 

C98003B 

BA2011A 

CB7001A 

CB7001B 

CB7004A 

CC1223A 

BC1226A 

CC1226B 

BC3009B 

BD1B02B 

BD1B06A 

AD1B08A 

BD2A02A 

CD2A21B 

CD2A23E 

CD2A32A 

CD2A41A 

CD2A41B 

CD2A87A 

CD2B15C 

BD3006A 

BD4008A 

CD4022A 

CD4022D 

CD4024B 

CD4024C 

CD4024D 

CD4031A 

CD4051D 

CD5111A 

CD7004C 

BD7005D 

CD7005E 

AD7006A 

CD7006E 

AD7201A 

AD7201E 

CD7204B 

AD7206A 

BD8002A 

BD8004C 

CD9005A 

CD9005B 

CDA201E 

CE2107I 

CE2117A 

CE2117B 

CE2119B 

CE2205B 

CE2405A 

CE3111C 

CE3116A 

CE3118A 

CE3411B 

CE3412B 

CE3607B 

CE3607C 

CE3607D 

CE3812A 

CE3814A 

CE3902B 

2.2  INAPPLICABLE  TESTS 

A  taat  ia  inapplicabla  if  it  containa  taat  objactivaa  which  ara  irralavant 
for  a  givan  Ada  inplaawntation.  Raaaona  for  a  taat 'a  inapplicability  oiay 
ba  aupportad  by  documanta  iaauad  by  tha  ISO  and  tha  AJPO  knovm  aa  Ada 
Coamantariaa  and  coomonly  rafarancad  in  tha  format  Al-ddddd.  For  thia 
implamantation,  tha  following  taata  wara  datarminad  to  ba  inapplicabla  for 
tha  raaaona  indicatad;  rafarancaa  to  Ada  Coamantariaa  ara  includad  aa 
appropriata. 


2-1 


IMPLEMENTATION  DEPENDENCIES 


B22005A..C  and  B22005P  (4  tasts),  raspactivaly,  chack  that  control  tha 
charactara  SOH,  STX,  ETX,  and  DLE  ara  illagal  whan  outsida  of  charactar 
litarala,  string  litarala,  and  coinnantB;  for  this  implamantation  those 
characters  have  a  special  meaning  to  the  underlying  system  such  that  the 
test  file  is  altered  before  being  passed  to  the  conqpiler.  (See  section 
2.3.) 


C24113W. .Y  (3  tests)  contain  lines  of  length  greater  than  255  characters 
which  are  not  supported  by  this  implementation. 

The  following  20  tests  check  for  the  predefined  type  LONG_INTEGER;  for 
this  implementation,  there  is  no  such  type: 


C35404C 

C45502C 

C45613C 

C55B07A 


C45231C 

C45503C 

C45614C 

B55B09C 


C45304C 

C45504C 

C45631C 

B86001W 


C45411C 

C45504F 

C45632C 

C86006C 


C45412C 

C45611C 

B52004D 

CD7101F 


C41401A  checks  that  OONSTRAINT_ERROR  is  raised  upon  the  evaluation  of 
various  attribute  prefixes;  this  implementation  derives  the  attribute 
values  from  the  subtype  of  the  prefix  at  compilation  time,  and  thus  does 
not  evaluate  the  prefix  or  raise  the  exception.  (See  Section  2.3.) 

C45531M..P  and  C45532M..P  (8  tests)  check  fixed-point  operations  for 
types  that  require  a  SYSTEM. MAX_MANTISSA  of  47  or  greater;  for  this 
implementation,  MAX_MAMTISSA  is  less  than  47. 

C45624A..B  (2  tests)  check  that  the  proper  exception  is  raised  if 
MACHINE_OVERFLOWS  is  FALSE  for  floating  point  types  and  the  results  of 
various  floating-point  operations  lie  outside  the  range  of  the  base 
type;  for  this  implementation,  MACHINE_OVERFLOWS  is  TRUE. 

B86001Y  uses  the  name  of  a  predefined  fixed-point  type  other  than  type 
DURATION;  for  this  implementation,  there  is  no  such  type. 

C96005B  uses  values  of  type  DURATION'S  base  type  that  are  outside  the 
range  of  type  DURATION;  for  this  implementation,  the  ranges  are  the 
same. 


CD1009C  checks  whether  a  length  clause  can  specify  a  non-default  size 
for  a  floating-point  type;  this  implementation  does  not  support  such 
sizes. 


C02A84A,  CD2A84E,  CD2A84I..J  (2  tests),  and  CD2A840  use  length  clauses  to 
specify  non-default  sizes  for  access  types;  this  implementation  does 
not  support  such  sizes. 

BD8001A,  BD8003A,  BD8004A..B  (2  tests),  and  AD8011A  use  machine  code 
insertions;  this  implementation  provides  no  package  MACHINE_CODE . 

The  tests  listed  in  the  following  table  check  that  USE_ERROR  is  raised  if 
the  given  file  operations  are  not  supported  for  the  given 
combination  of  mode  and  access  method;  this  implementation  supports 
these  operations. 
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Test 

File  Operation  Mode 

File  Access  Method 

CE2102D 

CREATE 

IN  FILE 

SEQUENTIAL  10 

CE2102E 

CREATE 

OUT_FILE 

SEQUENTIAL_IO 

CE2102F 

CREATE 

INOUT  FILE 

DIRECT  lO 

CE2102I 

CREATE 

IN  FILE 

DIRECT  lO 

CE2102J 

CREATE 

OUT  FILE 

DIRECT  lO 

CE2102N 

OPEN  . 

IN  FILE 

SEQUENTIAL  lO 

CE2102O 

RESET 

IN  FILE 

SEQUENTIAL  lO 

CE2102P 

OPEN 

OUT  FILE 

SEQUENTIAL  lO 

CE2102Q 

RESET 

OUT_FILE 

SEQUENTIAL_IO 

CE2102R 

OPEN 

INOUT  FILE 

DIRECT  10 

CE2102S 

RESET 

INOUT  FILE 

DIRECT  lO 

CE2102T 

OPEN 

IN  FILE 

DIRECT  10 

CE2102U 

RESET 

IN  FILE 

DIRECT  10 

CE2102V 

OPEN 

OUT  FILE 

DIRECT  10 

CE2102W 

RESET 

OUT  FILE 

DIRECT  lO 

CE3102E 

CREATE 

IN  FILE 

TEXT  lO 

CE3102F 

RESET 

Any  Mode 

TEXT  lO 

CE31026 

DELETE 

TEXT  10 

CE3102I 

CREATE 

OUT  FILE 

TEXT  lO 

CE3102J 

OPEN 

IN  FILE 

TEXT  lO 

CE3102K 

OPEN 

OUT_FILE 

TEXT_IO 

The  following  16  bests  check  operations  on  sequential,  direct,  and 
text  files  when  multiple  internal  files  are  associated  with  the  same 
external  file  and  one  or  more  are  open  for  writing;  USE_^BRROR  is 
raised  when  this  association  is  attempted. 


CE2107B..E  CE21076..H  CE2107L  CD2110B  CE2110D 

CE2111D  CE2111H  CE3111B  CE3111D..E  CE3114B 

CE3115A 

CE2108B,  CE2108D,  and  CE3112B  use  the  names  of  temporazry  sequential, 

direct,  and  text  files  that  were  created  in  other  tests  in  order  to 
check  that  the  temporary  files  are  not  accessible  after  the  completion 
of  those  tests;  for  this  implementation,  temporary  files  have  no  name. 

CE2203A  checks  that  WRITE  raises  nSE_ERROR  if  the  capacity  of  an 

external  sequential  file  is  exceeded;  this  implementation  cannot 
restrict  file  capacity. 

EE2401D  uses  instantiations  of  DIR£CT_IO  with  unconstrained  array  and 
record  types;  this  implementation  raises  USE_ERROR  on  the  attempt  to 
create  a  file  of  such  types. 

CE2403A  checks  that  WRITE  raises  USE_ERROR  if  the  capacity  of  an 

external  direct  file  is  exceeded;  this  implementation  cannot  restrict 
file  capacity. 

CE3304A  checks  that  SET_LINE_LEN6TH  and  SET_PA6E_LENGTH  raise 
USE^BRROR  if  they  specify  an  inappropriate  value  for  the  external 
file;  there  are  no  inappropriate  values  for  this  implementation. 


2-3 


IMPLEMENTATION  DEPENDENCIES 

CE3413B  chAcks  that  PAGE  raises  LAyoUT_ERROR  when  the  value  of  the 
page  number  exceeds  COUNT 'LAST;  for  this  implementation,  the  value  of 
COUNT 'LAST  is  greater  than  150000,  making  the  checking  of  this 
objective  impractical. 


2 . 3  TEST  MODIFICATIONS 

Modifications  (see  section  1.3)  vbtb  required  for  28  tests. 

The  following  tests  were  split  into  two  or  more  tests  because  this 
implementation  did  not  report  the  violations  of  the  Ada  Standard  in  the 
way  expected  by  the  original  tests. 

B22003A  B24009A  B29001A  B38003A  B38009A  B38009B 

B91001H  BC2001D  BC2001E  BC3204B  BC3205B  BC3205D 

B22005A..C  and  B22005P  (4  tests)  »rere  graded  inapplicable  by  Evaluation 
Modification  as  directed  by  the  AVO.  These  tests,  respectively,  check 
that  control  characters  SOH,  STX,  ETX,  and  DLE  are  illegal  outside  of 
character  literals,  string  literals,  and  comnents.  This  implementa¬ 
tion's  underlying  CAIS  system  gives  special  meaning  to  each  of  these 
control  characters  such  that  their  effect  is  to  alter  the  test  files 
in  a  way  that  defeats  the  test  objectives — either  the  characters  alone, 
or  together  with  any  text  that  follows  them  on  the  line,  are  not  passed 
to  the  compiler.  Hence,  B22005B  and  B22005P  compile  without  error, 
while  the  other  tests  have  syntactic  errors  introduced  by  the  loss  of 
test  text. 

B25002A,  B26005A,  and  B2'7005A  were  graded  passed  by  Evaluation  Modifi¬ 
cation  as  directed  by  the  AVO.  These  tests  check  that  control  charac¬ 
ters  SOH,  STX,  ETX,  and  OLE  are  illegal  within  of  character  literals, 
string  literals,  and  comments,  respectively.  This  implementation's 
underlying  CAIS  system  gives  special  meaning  to  each  of  these  control 
characters  such  that  their  effect  is  to  alter  the  test  files  in  the 
following  way:  these  characters,  and  except  in  the  case  of  DLE  any 
text  that  follows  them  on  the  line,  are  not  passed  to  the  compiler. 

The  tests  were  thus  graded  without  regard  for  the  lines  that  contained 
one  of  these  four  control  characters. 

C34007P  and  C34007S  were  graded  passed  by  Evaluation  Modification  as  directed 
by  the  AVO.  These  tests  include  a  check  that  the  evaluation  of  the  selector 
"all"  raises  CONSTRAINT_ERROR  when  the  value  of  the  object  is  null.  This 
implementation  determines  the  result  of  the  equality  teste  at  lines  207  and 
223,  respectively,  based  on  the  subtype  of  the  object;  thus,  the  selector  is 
not  evaluated  and  no  exception  is  raised,  as  allowed  by  LRM  11.6(7).  The 
tests  were  graded  passed  given  that  their  only  output  from  Report . Failed  was 
the  message  "NO  EXCEPTION  FOR  NULL. ALL  -  2". 

C41401A  was  graded  inapplicable  by  Evaluation  Modification  as  directed  by 
the  AVO.  This  test  checks  that  the  evaluation  of  attribute  prefixes  that 
denote  variables  of  an  access  type  raises  CONSTRAINT_ERROR  when  the  value 
of  the  variable  is  null  and  the  attribute  is  appropriate  for  an  array  or 
task  type.  This  implementation  derives  the  array  attribute  values  from  the 
subtype;  thus,  the  prefix  is  not  evaluated  and  no  exception  is  raised,  as 
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allowed  by  LRM  11.6(7),  for  the  checks  at  lines  77,  87,  97,  108,  121,  131, 
141,  152,  165,  &  175. 

C83030C  and  C86007A  were  graded  passed  by  Test  Modification  as  directed  by 
the  AVO.  These  tests  were  modified  by  inserting  "PRAGMA  ELABORATE  (REPORT);" 
before  the  package  declarations  at  lines  13  and  11,  respectively.  Without 
the  pragma,  the  packages  may  be  elaborated  prior  to  package  Report's  body, 
and  thus  the  packages'  calls  to  function  REPORT. IDENT_INT  at  lines  14  and  13, 
respectively,  will  raise  PROGRAM_ERROR. 

BC3204C..D  and  BC3205C..D  (4  tests)  were  graded  passed  by  Evaluation 
Modification  as  directed  by  the  AVO.  These  tests  are  expected  to  produce 
compilation  errors,  but  this  implementation  compiles  the  units  without  error; 
all  errors  are  detected  at  link  time.  This  behavior  is  allowed  by  AI-00256, 
as  the  units  are  illegal  only  with  respect  to  units  that  they  do  not  depend 
on. 
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PROCESSING  INFORMATION 


3.1  TESTING  ENVIRONMENT 


The  Ada  Implementation  tested  In  this  validation  effort  is  described 
adequately  by  the  information  given  in  the  initial  pages  of  this  report. 

For  a  point  of  contact  in  Germany  for  technical  and  sales  information  about 
this  Ada  implementation  system,  see: 

Alsys  OnbH  fi  Co.  KG 
Am  Ruppurrer  SchloB  7 
W-7500  Karlsruhe  51 
Germany 

Tel.  +49  721  883025 

Testing  of  this  Ada  implementation  was  conducted  at  the  AVF's  site  by  a 
validation  team  from  the  AVF. 


3.2  SUMMARY  OF  TEST  RESULTS 

An  Ada  Implementation  passes  a  given  ACVC  version  if  it  processes  each  test 
of  the  customized  test  suite  in  accordance  with  the  Ada  Programming 
Language  Standard,  whether  the  test  is  applicable  or  inapplicable; 
otherwise,  the  Ada  Implementation  fails  the  ACVC  [Pro90]. 

For  all  processed  tests  (inapplicable  and  applicable),  a  result  was 
obtained  that  conforms  to  the  Ada  Programming  Language  Standard. 

The  list  of  items  below  gives  the  number  of  ACVC  tests  in  various 
categories.  All  tests  ware  processed,  except  those  that  were  withdravm 
because  of  test  errors  (item  b;  see  section  2.1),  those  that  require  a 
floating-point  precision  that  exceeds  the  implementation's  maximum 
precision  (item  e;  see  section  2.2),  and  those  that  depend  on  the  support 
of  a  file  system  —  if  none  is  supported  (item  d).  All  tests  passed,  except 
those  that  are  listed  in  sections  2.1  and  2.2  (counted  in  items  b  and  f, 
below) . 
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a)  Total  Number  of  Applicable  Tests  3979 

b)  Total  Number  of  Withdrawn  Tests  95 

c)  Processed  Inapplicable  Tests  96 

d)  Non-Processed  I/O  Tests  0 

e)  Non-Processed  Floating-Point 

Precision  Tests  0 


f)  Total  Number  of  Inapplicedale  Tests  96  (c-i-d-fe) 

g)  Total  Number  of  Tests  for  ACVC  1.11  4170  (a-i-b-»-f) 


3 . 3  TEST  EXECUTION 

ACVC  1.11  was  run  at  lABG's  premises  as  follows:  With  the  customer's  macro 
parameter  file  the  customised  ACVC  1.11  was  produced.  Then  CAIS  version  5.5E 
as  supplied  by  the  customer  was  loaded  and  installed  on  the  candidate  VAX 
8350  computer.  Next  the  basic  CAIS  node  model  and  the  candidate  Ada 
implementation  were  installed.  Then  the  full  set  of  tests  was  processed  using 
command  scripts  provided  by  the  customer  and  reviewed  by  the  validation  team. 
Tests  were  processed  in  two  parallel  CAIS  sessions.  See  Appendix  B  for  a 
complete  listing  of  the  processing  options  for  this  implementation.  It  also 
indicates  the  default  options. 

Compilation  was  made  using  the  following  parameter  settings: 

SOURCE  «>  "'CURRENT  USER ' DOT ( SRC ) " 

LIBRARY  »>  "'CURRENT'’uSER'ADA  LIBRARY ( SAMPLE ) " 

LIST  «>  " ' CURRENT”uSER ' DOtTlIS ) " 

LOG  «>  "'CURRENT“uSER'DOT(LOG>" 

The  parameters  SOURCE  and  LIBRARY  do  not  have  a  default  value  and  need  to  be 
specified  anyway. 

The  default  of  the  parameters  LIST  and  LOG  means  that  no  listing,  resp.  no 
log  output  is  to  be  produced.  The  values  used  for  validation  are  CAIS 
pathnames  in  order  to  obtain  the  corresponding  output  in  the  file  nodes 
specified  by  the  respective  pathnames. 

Linking  was  made  using  the  following  parameter  settings: 

UNIT  »  . . .  —  Main  Program  to  be  linked 

LIBRARY  ->  " ' CURRENT_USER ' AOA_LIBRARY ( SAMPLE ) " 

EXECUTABLE  ->  " 'CURRENT~USER'DOT(EXE) " 

DEBUG  »  NO 

LOG  ■>  "'CURRENT_USER'DOT(LOG)" 

The  parameters  UNIT,  LIBRARY  and  EXECUTABLE  do  not  have  a  default  value  and 
need  to  be  specified  anyway. 

The  default  of  the  parameter  LOG  means  that  no  log  output  is  to  be  produced. 
The  value  used  for  validation  is  a  CAIS  pathname  in  order  to  obtain  the 
corresponding  output  in  the  file  node  specified  by  the  pathname. 

The  default  value  for  the  parameter  DEBUG  is  not  used,  since  ALSYS  has 
provided  only  the  runtime  system  which  does  not  include  debugger  support. 
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Chapter  B  tests,  the  executable  not  applicable  tests,  and  the  executable 
tests  of  class  E  were  compiled  using  the  full  listing  option  -1.  For  several 
tests,  completer  listings  were  added  and  concatenated  using  the  option  -L 
'file  name'.  The  completer  is  described  in  Appendix  B,  c«npilation  system 
options,  chapter  4.2  of  the  User  Manual  on  page  39. 

Test  output,  compiler  and  linker  listings,  and  job  logs  vwre  captured  on  a 
Magnetic  Tape  and  archived  at  the  AVF.  The  listings  examined  by  the 
validation  team  were  also  archived. 
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MACRO  PARAMETERS 

This  appendix  contains  the  macro  parameters  used  for  customizing  the  ACVC. 
The  meaning  and. purpose  of  these  parameters  are  explained  in  [UG89].  The 
parameter  values  are  presented  in  two  tables.  The  first  table  lists  the 
values  that  are  defined  in  terms  of  the  maximum  input-line  length,  which  is 
the  value  for  SMAX_IN_LEN~also  listed  here.  These  values  are  expressed 
here  as  Ada  string  aggregates,  where  "V-  represents  the  maximum  input-line 
length. 

Macro  Parameter  Macro  Value 


$MAX_IN_LEN  255  —  Value  of  V 

SBIG_ID1  (1..V-1  ■>  'A*,  V  *>  '1') 

$BIG_ID2  (1..V-1  ■>  'A*,  V  *>  '2') 

$BIG_1D3  (1..V/2  ■>  'A')  &  '3'  & 

(1..V-1-V/2  ■>  'A') 

$BIG_^XD4  (1..V/2  »>  'A')  6  '4'  & 

(1..V-1-V/2  «>  'A') 

SBIG__INT_LIT  (1..V-3  *>  '0')  &  "298" 

SBIG_REAL_LIT  (1..V-5  »>  '0')  &  "690.0" 

$BIG_STR1NG1  6  {1..V/2  ■>  'A')  & 

SBIG__STRING2  6  (1..V-1-V/2  ■>  'A')  &  '1'  & 

$BLANKS  (1..V-20  ■>  '  ' ) 

$MAX_1,EN_1NT_BASED_LITERAL 

"2:"  6  (1..V-5  ->  '0')  &  "11:" 

$MAX_LEN_REAL_BASED_LITEBAL 

"16:"  6  (1..V-7  ->  '0')  fi  "F.E:" 

SMAX__STRING__LITERAL  &  (1..V-2  »>  'A')  & 
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Th«  following  tabl*  lists  all  of  ths  othsr  macro  paramatars  and  their 
respect iva  values. 


Macro  Parameter 

Macro  Value 

SACC_SIZE 

32 

SALIGNMENT 

4 

$COUNT_LAST 

2_147_483_647 

$DEFAULT_MEM_S I ZE 

2147483648 

SDEFAOLT_STOR_UN1T 

8 

$DEFAULT_SYS_NAME 

VAX_VMS 

SDELTA_DOC 

2#1.0#E-31 

$ENTRY_ADDRESS 

SYSTEM. INTERRUPT_VECTOR ( 10 ) 

$ENTRy_ADDRESS 1 

SYSTEM. lNTERRUPT_VECTOR ( 11 ) 

$ENTRy_A0DRESS2 

SYSTEM. INTERRUPT_VECTOR ( 12 ) 

$FIELD__LAST 

512 

$FILE_TERMINATOR 

9  9 

$FIXED_NAME 

NO_SOCH_FIXED_TYPE 

$FLOAT_NAME 

LONG_LONG_FLOAT 

SFORM_STRING 

fl  ft 

SF0RM_STRING2 

"CANNOT_RESTRICT_FILE_CAPACITY 

$GREATER  THAN  DURATION 

0.0 

$GREATER_THAN  DURATION  BASE_LA5T 

200_000.0 

$GREAT£R  THAN  FLOAT_BASE  LAST 

16#0.8#E+32 

$GREATER_THAN_FLOAT_SAFE_LARGE 

16#0 . 7FFP_PFFF_1000_000#E+32 

$GREATER_THAN_SHORT_FLOAT_SAFE  LARGE 

16#0. 7FFr_FD0#E+32 

$HIGH  PRIORITY  15 
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SILLEGAL_EXTERNAL_FILE_NAME1 

( nodirectory ] filename 

$  XLLEGAL_EXTERNAL_FILE_NAME2 

“  FILENAME.* 

$INAPPROPRIATE_LINE  LENGTH 

-1 

$INAPPROPRZATE_PAGE  LENGTH 

-1 

$INCLUDE_PRAGMA1  PRAGMA  INCLUDE  ( "A28006D1 . TST" ) 

$INCLUDE_PRAGMA2  PRAGMA  INCLUDE  ( ''B28006F1.TST"  ) 

$INTEGER_FZRST  -2147483648 

$INTEGER_LAST  2147483648 

S1NTEGER_LAST_PLUS_1  2147483648 

$INTERFACE_LANGUAGE  VMS 

$LESS_THAN_DURATION  -0.0 

$LESS  THAN  DURATION  BASE  FIRST 

-200_000.0 

$LINE_TERMINATOR  '  * 

SLOW_PRIORITY  0 

$MACHINE  CODE  STATElffiNT 

NULL; 

SMACHINE_CODE_TyPE  NO_SUCH_TyPE 

$MANTISSA_DOC  31 

$MAX_DIGITS  33 

SMAX_INT  2147483647 

$MAX_INT_PLUS_1  2_147_483_648 

$HIN_INT  -2147483648 

$NAME  SHORT_SHORT_INTEGER 

$NAME_LIST  VAX_VMS 

$NAME_SPECIFICATI0N1  CAIS$DUA0: [CHAPE]X2120A. ;1 
$NAME_SPECIFICATION2  CAIS$DUA0: (CHAPE]X2120B. ;1 
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$NAME_rPECXFICATION3 

CAISSOUAO : ( CHAPE ] X3119A. ; 1 

$NEG_BASED_1NT 

16#FFFFFFFE# 

$NEW_MEM_SIZE 

2147483648 

$NEW_SYS_NAME 

VAX_VMS 

$PAGE_TERMINATOR 

«  # 

$RECORD_DEFINITION 

NEW  INTEGER 

$RECORD__NAME 

NO_SDCH_MACHINE_CODE_TYPE 

$TASK_SIZE 

32 

$TASK_STORAGE_SIZE 

10240 

STICK 

0.01 

$VARIABLE_AODRESS 

GET_VARIABI.E_AODRESS 

$VARIABL£_ADDRESS1 

GET_yARIABLE_ADDRESSl 

$VARIABLE_ADDRESS2 

GET_VARIABLE_A0DRESS2 

APPENDIX  B 


COMPUTATION  AND  LINKER  SYSTEM  OPTIONS 


The  compiler  and  linker  options  of  this  Ada  implementation,  as  described  in 
this  Appendix,  are  provided  by  the  customer.  Unless  specifically  noted 
otherwise,  references  in  this  appendix  are  to  compiler  documentation  and  not 
to  this  report. 
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4  Compiling 


After  a  program  library  has  been  created,  one  or  more  compilation  units  can  be  com¬ 
piled  in  the  context  of  this  library.  The  compilation  units  must  all  be  on  the  same  file. 
One  unit,  a  parameterless  procedure,  acts  as  the  main  program.  If  all  units  needed  by 
the  main  program  and  the  main  program  itself  have  been  compiled  successfully,  they 
can  be  linked.  The  resulting  code  can  then  be  executed  by  exporting  the  file  contents 
to  a  VMS  file  and  using  the  RUN  command,  or  by  using  appropriate  tools  of  the  SWG 
APSE  (CLI,  Debugger),  or  by  using  CAIS  operations. 

§4.1  and  Chapter  5  describe  in  detail  how  to  call  the  Compiler  and  the  Linker.  In 
§4.2  the  Completer,  which  is  called  to  generate  code  for  instances  of  generic  units,  is 
described. 

Chapter  6  explains  the  information  which  is  given  if  the  execution  of  a  program  is 
abandoned  due  to  an  unhandled  exception. 

The  information  the  Compiler  produces  and  outputs  in  the  Compiler  listing  is  explained 
in  §4.4. 

Finally,  the  log  of  a  sample  session  is  given  in  Chapter  7. 


4.1  Compiling  Ada  Units 

To  start  the  SYSTEAM  Ada  Compiler,  use  the  compile  .host  commsmd. 


compile_host 


Command  Description 


Format 


PROCEDURE  compileJiost  ( 


source 

analyz  e .dependency 
check 

copy.source 

glven-by 

inline 

library 

list 

log 

machine .code 
optimize 


string  ; 

yes.no.ans«er  :■  no; 

yes.no.answer  :«  yes; 

yesmo.answer  :  >  yes ; 

source.choices  :*  pathname; 

yes.no.answer  :*  yes; 

pathname -type 

:■  def ault .library ; 


pathname -type 
pathname -type 
yes-no-answer 
yes-no.answer 


nolist ; 
nolog ; 
no; 

yes; 


SYSTEAM  Ada  System  -  User  Manual 
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recompile  :  ye8-no_answer  :*  no; 

compiled-units  :  OUT  unit-descr-list  ) ; 


Description 

The  source  file  may  contain  a  sequence  of  compilation  units 
(cf.  LRM(§10.1)).  All  compilation  units  in  the  source  file  are  compiled 
individually.  When  a  compilation  unit  is  compiled  successfully,  the  program 
library  is  updated  and  the  Compiler  continues  with  the  compilation  of  the 
next  unit  on  the  soTirce  file.  If  the  compilation  unit  contained  errors,  they 
are  reported  (see  §4.4).  In  this  case,  no  update  operation  is  performed  on 
the  program  library  and  all  subsequent  compilation  units  in  the  compilation 
are  only  analyzed  without  generating  code. 

Parameters 

source  ;  string 

Specifies  the  file  to  be  compiled.  The  maximum  length  of  lines  in  a 
sotirce  file  is  cal8-pragmatics.text.io-coluffln8.per-line.  The  max¬ 
imum  number  of  source  lines  is  cals-pragaatics.text.io-lines-per.. 
file. 

analyze -dependency  :  yes-no-answer  :■  no 

Specifies  that  the  Compiler  only  performs  syntactical  analysis  and  the  anal¬ 
ysis  of  the  dependencies  on  other  units.  The  units  in  the  source  file  are 
entered  into  the  library  if  they  are  syntactically  correct.  The  actual  com¬ 
pilation  is  done  later  with  the  autocompile -host  command. 

Note:  An  already  existing  unit  with  the  same  name  as  the  new  one  is 
replaced  and  all  dependent  units  become  obsolete,  unless  the  source  file 
of  both  are  identical.  In  this  case  the  library  is  not  updated  because  the 
dependencies  are  already  known. 

By  default,  the  normal,  full  compilation  is  done. 

check  :  yes-no-answer  :•  yes 

Controls  whether  all  run-time  checks  are  suppressed.  If  you  specify  check 
•>  no  this  is  equivalent  to  the  use  of  PRAGMA  suppress  for  all  kinds  of 
checks. 

By  default,  no  run-time  checks  are  suppressed,  except  in  cases  where 
PRAGMA  suppress-all  appears  in  the  source. 

copy-source  :  yes-no.answer  :■  yes 

Controls  whether  a  copy  of  the  source  file  is  kept  in  the  library.  The  copy 
in  the  program  library  is  used  for  later  access  by  the  Debugger  or  toob 
like  the  Recompiler.  The  name  of  the  copy  b  generated  by  the  Compiler 
and  need  normally  not  be  known  by  the  user.  The  Recompiler  and  the 
Debugger  know  thb  name.  You  can  use  the  directory-host  ( . . . .  full 
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»  yes .  . . . )  command  to  see  the  file  name  of  the  copy.  If  a  specified  file 
contains  several  compilation  units  a  copy  containing  only  the  source  text 
of  one  compilation  unit  is  stored  in  the  library  for  each  compilation  unit. 
Thus  the  Recompiler  can  recompile  a  single  unit. 

If  copy-source  ■>  no  is  specified,  the  Compiler  only  stores  the  name  of 
the  source  file  in  the  program  library.  In  this  case  the  Recompiler  and  the 
Debugger  are  able  to  use  the  original  file  if  it  still  exists, 
copy-source  «>  yes  cannot  be  specified  together  with  analyre-depen- 
dency. 

given-by  :  source-choices  :•  pathname 

given-by  pathname  indicates  that  the  string  of  the  source  parameter 
is  to  be  interpreted  as  a  pathname. 

given-by  o  imique-identifier  indicates  that  the  string  of  the  source 
parameter  is  to  be  interpreted  as  a  unique  identifier. 

By  default  it  is  interpreted  as  a  pathname. 

inline  :  yes_no-answer  :«  yes 

Controls  whether  inline  expansion  is  performed  as  requested  by  PRAGMA 
inline.  If  you  specify  no  these  pragmas  are  ignored. 

By  default,  inline  expansion  is  performed. 

library  ;  pathname-type  :■  default -library 

Specifies  the  program  library  the  command  works  on.  The  compile-host 
command  needs  write  access  to  the  library. 

The  default  is  ’ CURRENT-USER 'ADA-LIBRARY (STD). 

list  ;  pathname-type  :*  nolist 

Controls  whether  a  listing  is  written  to  the  given  file. 

By  default,  the  compile  command  does  not  produce  a  listing  file. 

log  :  pathname -type  :*  nolog 

Controls  whether  the  Compiler  appends  additional  messages  onto  the  spec¬ 
ified  file. 

By  default,  no  additional  messages  are  written, 
machine-code  :  yes-no-answer  ;*  no 

Controls  whether  machine  code  is  appended  at  the  listing  file,  machine - 
code  has  no  effect  if  list  is  nolist  or  analyze -dependency  ■>  yes  is 
specified. 

By  default,  no  machine  code  is  appended  at  the  listing  file, 
optimize  :  yes_no-ans«er  :*  yes 

Controls  whether  full  optimization  is  applied  in  generating  code.  There  is 
no  way  to  specify  that  only  certain  optimizations  are  to  be  performed. 

By  default,  full  optimization  is  done. 
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recompile  :  yes-no-answer  no 

Indicates  that  a  recompilation  of  a  previously  analyzed  source  is  to  be 
performed.  This  parameter  should  not  be  set  to  yes  unless  the  command 
was  produced  by  the  SYSTEAM  Ada  Recompiler.  See  the  recompile, 
host  command. 

compiled-units  :  OUT  unit.descr.list 

The  result  compiled_units  is  also  a  string  valued  item,  which  is  the  textual 
representation  of  the  following  list  structure:  The  list  is  an  unnamed  pos¬ 
sibly  empty  list  containing  a  list  valued  item  for  each  successfully  compiled 
unit. 

This  list  valued  item  (a  unit  description)  is  of  the  following  structure:  It 
is  an  unnamed  list  with  three  items:  The  first  item  is  a  string  valued  item 
containing  the  fully  expanded  name  of  the  unit,  the  second  item  is  either 
the  string  "spec",  "body"  or  "stub",  indicating  whether  the  specification 
of  a  library  unit,  a  body  of  a  library  unit  or  a  subimit  is  named  by  the 
first  item.  The  third  item  is  a  string  valued  item  containing  the  string 
representation  of  the  compilation  time. 

Note  that  the  construction  of  this  list  is  restricted  by  the  following  imple¬ 
mentation  specific  constants  of  CAIS:  The  textual  representation  of  a  list 
is  limited  by  cai8.pragmatic8.1ist-text.length  and  The  length  of  a 
string  item  is  limited  by  cais-pragmatics.string.item-length. 

During  compilation  of  a  tmit  the  compiler  may  detect  that  the  description 
of  this  xmit  cannot  be  appended  to  the  imit  description  list  due  to  these 
limits.  It  then  outputs  an  error  message  to  the  user  and  aborts  compilation 
with  the  message: 

*•*•*  COMPSYS  aborted  because  of  CAIS  restriction  for  results 

The  result  coapiled_xmit8  does  not  contain  a  description  of  the  unit  which 
caused  the  the  overflow  of  the  limit,  however,  the  description  of  that  un't 
in  the  library  has  already  been  updated. 

When  finally  writing  the  result  list  the  compiler  may  detect  that  the  whole 
list  of  unit  descriptions  cannot  be  converted  to  text  or  the  text  cannot  be 
taken  as  a  single  string  item.  It  then  outputs  an  error  message  to  the  user 
and  aborts  compilation  with  the  message: 

***  COMPSYS  aborted  because  of  CAIS  restriction  for  results 

The  result  compiled-imits  will  be  empty.  However,  updates  in  the  library 
of  all  successful  compilations  have  already  been  performed  at  that  time. 


End  of  Command  Description 
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4.2  Completing  Generic  Instances 

Since  the  Compiler  does  not  generate  code  for  instances  of  generic  bodies,  the  Com¬ 
pleter  must  be  used  to  Complete  such  units  before  a  prograim  using  the  instances  can 
be  executed.  The  Completer  must  also  be  used  to  complete  packages  in  the  program 
which  do  not  require  a  body.  This  is  done  implicitly  when  the  Linker  is  called. 

It  is  also  possible  to  call  the  Completer  explicitly  with  the  complete-host  command. 


complete-host 


Command  Description 


Format 


PROCEDURE  complete-host  ( 


unit 

check 

inline 

library 

list 

log 

machine -code 
optimize 


uni tname -type  ; 

yes-no-answer  :>  yes; 

yes-no-answer  :■  yes; 

pathname -type 

:«  default-library; 


pathname -type 
pathname -type 
yes-no-answer 
yes-no-answer 


nolist ; 
nolog ; 
no; 
yes) ; 


Description 

The  complete-host  command  invokes  the  SYSTEAM  Ada  Completer. 
The  Completer  generates  code  for  all  instantiations  of  generic  units  in 
the  execution  closure  of  the  specified  xmit(s).  It  also  generates  code  for 
packages  without  bodies  (if  necessary). 

By  default,  the  Completer  is  invoked  implicitly  by  the  link-host  com¬ 
mand.  In  normal  cases  there  is  no  need  to  invoke  it  explicitly. 

Parameters 

unit  :  uni tname -type 

specifies  the  imit  whose  execution  closure  is  to  be  completed, 
check  :  yes-no-answer  :*  yes 

Controls  whether  all  run-time  checks  are  suppressed.  If  you  specify  no  this 
is  equivalent  to  the  \ise  of  PRAGMA  suppress  for  all  kinds  of  checks. 
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By  default,  no  nm-time  checks  are  suppressed,  except  in  cases  where 
PRAGMA  suppress^all  appears  in  the  source. 

inline  :  yes_no-answer  :*  yes 

Controls  whether  inline  expansion  is  performed  as  requested  by  PRAGMA 
inline.  If  no  is  specified,  these  pragmas  are  ignored.  By  default,  inline 
expansion  is  performed. 

library  :  pathname-type  :«  default -library 

Specifies  the  program  library  the  command  works  on.  The  complete -host 
command  needs  write  access  to  the  library. 

The  default  library  is  *  CURRENT-USER 'ADA-LIBRARY  (STD). 

list  :  pathname-type  :•  nolist 

Controls  whether  a  listing  is  written  to  the  given  file. 

By  default,  the  complete -host  command  does  not  write  a  listing  file. 

log  :  pathname -type  nolog 

Controls  whether  the  complete-host  command  appends  additional  mes¬ 
sages  to  the  specified  file. 

By  default,  no  additional  messages  are  written. 

machine -code  :  yes-no-answer  no 

Controls  whether  a  machine  code  listing  is  appended  to  the  listing  file, 
machine-code  «>  yes  has  no  effect  if  list  «>  nolist  is  specified.  By 
default,  no  machine  code  listing  is  appended  to  the  listing  file. 

optimize  :  yes-no-answer  :*  yes 

Controls  whether  full  optimization  is  applied  in  generating  code.  There  is 
no  way  to  specify  that  only  certain  optimizations  are  to  be  performed. 

By  default,  full  optimization  is  done. 


End  of  Command  Description 


4.3  Automatic  Compilation 

The  SYSTEAM  Ada  System  offers  three  different  kinds  of  automatic  compilation.  It 
supports 

•  automatic  recompilation  of  obsolete  imits 

•  automatic  compilation  of  modified  sources 

•  first  compilation  of  new  soiu’ces  with  unknown  dependencies. 
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In  the  following  the  term  recompilation  stands  for  the  recompilation  of  an  obsolete 
unit  using  the  identical  source  which  was  used  the  last  time.  (This  kind  of  recom¬ 
pilation  could  alternatively  be  implemented  by  using  some  appropriate  intermediate 
representation  of  the  obsolete  unit.)  This  definition  is  stronger  than  that  of  the  LRM 
(10.3).  If  a  new  version  of  the  source  of  a  unit  is  compiled  we  call  it  compilation^  not 
a  recompilation. 

The  set  of  units  to  be  checked  for  recompilation  or  new  compilation  is  described  by 
specifying  one  or  more  units  and  the  kind  of  a  closure  which  is  to  be  built  on  them. 
In  many  cases  you  will  simply  specify  your  main  program. 

The  automatic  recompilation  of  obsolete  units  is  supported  by  the  recompile-host 
command.  It  determines  the  set  of  obsolete  units  and  generates  a  command  file  for 
calling  the  Compiler  in  an  appropriate  order.  This  command  file  is  in  fact  an  Ada 
program  using  the  facilities  of  the  package  CLI-INTERFACE  provided  by  the  S  WG  APSE 
CLI. 

The  recompilation  is  performed  using  the  copy  of  the  obsolete  imits  which  is  (by 
default)  stored  in  the  library.  (If  the  user  does  not  want  to  hold  a  copy  of  the  sources 
the  recompile-host  commcLnd  offers  the  facility  to  use  the  original  source.) 

The  automatic  compilation  of  modified  sources  is  supported  by  the  autocompile  I 
host  command.  It  determines  the  set  of  modified  soxirces  and  generates  a  command 
file  for  calling  the  Compiler  in  an  appropriate  order.  This  command  file  is  in  fact 
an  Ada  program  using  the  facilities  of  the  package  CLI-INTERFACE  provided  by  the 
SWG  APSE  CLI.  The  basis  of  both  the  recompile_host  and  the  autocompile-host 
command  is  the  information  in  the  libraury  about  the  dependencies  of  the  concerned 
units.  Thus  neither  of  these  commands  can  handle  the  compilation  of  units  which  have 
not  yet  been  entered  in  the  library. 

The  automatic  compilation  of  new  sources  is  supported  by  the  compile-host  com¬ 
mand  together  with  the  analyze-dependency  parameter.  This  command  is  able  to 
accept  a  set  of  sources  in  any  order.  It  makes  a  syntactical  analysis  of  the  sources  and 
determines  the  dependencies.  The  units  ’’compiled”  with  this  command  are  entered 
into  the  library,  but  only  their  names,  their  dependencies  on  other  units  and  the  name 
of  the  source  files  are  stored  in  the  library.  Units  which  are  entered  this  way  can  be 
automatically  compiled  using  the  autocompile-host  command.  They  cannot  be  re¬ 
compiled  tising  the  recompile_host  command  because  the  recomplle-host  command 
only  recompiles  units  which  were  already  compiled. 

The  next  sections  explain  the  usage  of  the  recompile  .host  command,  the  autocom- 
pile-host  command,  and  the  compile-host  command  with  analyze-dependency  ■> 

yes. 
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4.3.1  Recompiling  Obsolete  Units 

The  recoapile_host  command  supports  the  automatic  recompilation  of  units  which 
became  obsolete  because  of  the  (re) compilation  of  units  they  depend  on.  The  command 
gets  as  a  parameter  a  set  of  units  which  are  to  be  used  to  form  the  closure  of  units  to  be 
recompiled.  The  kind  of  the  closiire  can  be  specified.  The  recompile-host  command 
generates  a  command  file  with  a  sequence  of  compile  commands  to  recompile  the 
obsolete  tmits  which  belong  to  the  computed  closure.  This  command  file  is  in  fact 
an  Ada  program  using  the  facilities  of  the  package  CLI -INTERFACE  provided  by  the 
SWG  APSE  CLI.  The  name  of  the  command  file  car  be  specified  using  the  output 
parameter. 


recompile-host 


Command  Description 


Format 


PROCEDURE  recompile-host  ( 


unit 

output 

body-ind 

bodies-only 

check 

closure 

conditional 

inline 

libra^ 

list 

log 

machine -code 
optimize 


uni  tname -type 

pathname -type 

yes-no-answer 

yes-no-answer 

yes-no-same-zmswer 

closxire-choices 

yes-no-answer 

yes-no-same-answer 

pathname -type 

default, 
pathname -type 
pathname -type 
yes-no_answer 
yes-no_same-answer 


no; 
no; 
same; 
execute ; 
yes; 
same; 

library ; 

*  nolist; 

■  nolog; 

■  no; 

«  same) ; 


Description 

The  recompile-host  command  determines  the  specified  closure  based  on 
the  specified  unit.  Out  of  the  units  of  the  closure  it  determines  the  set  of 
units  which  zire  obsolete.  It  generates  a  command  file  containing  a  com~ 
pile-host  ( . . . ,  recompile  ■>  yes ,  . . . )  command  for  every  obsolete 
unit.  They  are  compiled  in  an  order  consistent  with  the  WITH  dependen¬ 
cies  and  the  "body-oP  and  "subunit-oP  dependencies  as  required  by  the 
LRM(10.3). 
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The  reco]iipile_ho8t  command  uses  the  copy  of  the  source  which  is  stored 
in  the  library  for  the  recompilation.  By  default,  the  compile  command 
stores  a  copy  of  the  soiirce  in  the  library.  If  there  is  no  copy  in  the  library 
.  because  the  tmit  was  compiled  using  the  copy_source  *>  no  parameter 
-  the  recompile_host  issues  a  warning  and  generates  a  complle_ho8t 
command  for  the  original  source  file  name.  It  is  not  checked  whether  such 
a  file  still  exists.  This  command  only  performs  a  real  recompilation  if  the 
current  source  is  the  same  which  was  last  compiled. 

In  the  command  file  each  recompilation  of  a  unit  is  executed  imder  the 
condition  that  the  recompilation  of  other  units  it  depends  on  was  successful. 
Thus  useless  recompilations  are  avoided.  The  generated  command  file  only 
works  correctly  if  the  library  was  not  modified  since  the  command  file  was 
generated. 

Note:  If  a  unit  from  a  parent  library  is  obsolete  it  is  compiled  in  the 
sublibraxy  in  which  the  recompile_host  command  is  used.  In  this  case  a 
later  recompilation  in  the  parent  library  may  be  hidden  afterwards. 

Parameters 

unit  :  uni tname .type 

Specifies  the  unit  whose  closure  is  to  be  built. 

output  :  pathname .type 

Specifies  the  name  of  the  generated  command  file, 
body.ind  :  yes_no.an8wer  :»  no 

specifies  that  unit  stands  for  the  secondary  unit  with  that  name.  By 
default,  xmit  denotes  the  library  unit.  If  unit  specifies  a  subimit,  the 
body.ind  parameter  need  not  be  specified. 

bodies.only  :  yes.no.answer  :*  no 

Controls  whether  all  units  of  the  closure  are  recompiled  (default)  or  only 
the  secondary  imits.  This  parameter  is  only  effective  if  conditional  » 
no  is  specified. 

check  :  ye8.no.8ame .answer  ;■  same 

check  ■>  same  means  that  the  same  value  for  the  parameter  check  is  in¬ 
cluded  in  the  generated  command  file  which  was  in  effect  at  the  last  compi¬ 
lation.  See  the  same  parameter  of  the  compile.ho8t  command.  Otherwise 
the  given  value  for  the  check  parameter  is  included  in  the  command  file. 
By  default  the  parameter  value  of  the  last  compilation  is  included. 

closure  ;  closure.choices  :■  execute 

Controls  the  kind  of  the  closme  which  is  built  and  which  is  the  basis  for  the 
investigation  for  obsolete  imits.  closure  ■>  noclosure  means  that  only 
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the  specified  imit  is  checked,  closure  «>  compile  means  that  only  those 
units  on  which  the  specified  unit  transitively  depends  are  regarded,  clo¬ 
sure  >>  execute  means  that  -  in  addition  -  all  related  secondary  units  and 
the  imits  they  depend  on  are  regarded.  If  closure  *>  tree  is  specified,  a 
wauming  is  issued  stating  that  this  is  not  meaningful  for  this  command  and 
that  the  default  value  is  taken  instead. 

By  default,  the  execution  closure  is  bmlt. 

conditional  :  yes-no_answer  :*  yes 

Controls  whether  only  obsolete  units  are  recompiled  (default),  no  Tnojins 
that  all  units  in  the  closure  are  recompiled  whether  they  are  obsolete  or 
not.  This  parameter  is  useful  for  recompiling  the  complete  closure  with 
different  pau'ameters  than  the  last  time. 

inline  :  yes_no_same_answer  :*  same 

inline  *>>  same  means  that  the  same  value  for  the  parameter  inline  is 
included  in  the  generated  command  file  which  was  in  effect  at  the  last  com¬ 
pilation.  See  the  same  parameter  of  the  compile _host  commamd.  Other¬ 
wise  the  given  value  for  the  inline  parameter  is  included  in  the  command 
file. 

By  default  the  parameter  value  of  the  last  compilation  is  included. 

library  ;  pathname.type  :•  default .library 
Specifies  the  program  library  the  commaind  works  on. 

The  default  is  'CURRENT-USER* ADA_LIBRARY (STD). 

list  :  pathname-type  :«  nolist 

This  parameter  is  included  in  the  generated  command  file  and  thus  affects 
the  generated  compile -host  command.  See  the  same  parsimeter  with  the 
compile-host  command. 

log  :  pathname -type  :«  nolog 

This  parameter  is  included  in  the  generated  command  file  and  thus  affects 
the  generated  compile -host  command.  See  the  same  parameter  with  the 
compile-host  command. 

machine -code  :  yes-no-answer  :*  no 

This  parameter  is  included  in  the  generated  command  file  and  thus  affects 
the  generated  compile-host  command.  See  the  same  parameter  with  the 
compile -host  command. 

optixoize  :  yes-no-same-answer  :■  same 

optimize  «>  same  means  that  the  same  value  for  the  parameter  opti¬ 
mize  is  included  in  the  generated  command  file  which  was  in  effect  at  the 
last  compilation.  See  the  same  parameter  of  the  compile-host  command. 
Otherwise  the  given  value  for  the  optimize  parameter  is  included  in  the 
command  file. 
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By  default  the  parameter  value  of  the  last  compilation  is  included. 


End  of  Command  Description 


4.3.2  Compiling  New  Sources 

The  autoconpile_ho8t  command  supports  the  automatic  compilation  of  units  for 
which  a  new  sotirce  exists.  The  command  receives  as  parameters  a  unit  which  is  to 
be  used  to  form  the  closure  of  units  to  be  processed.  The  kind  of  closure  can  be 
specified.  For  every  unit  in  the  closure,  the  autocompile-hoat  checks  whether  there 
exists  a  newer  source  than  that  which  was  used  for  the  last  compilation.  It  generates 
a  command  file  with  a  sequence  of  complle-host  commands  to  compile  the  units 
for  which  a  newer  source  exists.  If  a  unit  to  be  compiled  depends  on  another  unit 
which  is  obsolete  or  which  will  become  obsolete  and  for  which  no  newer  source  exists, 
the  autocompile_ho8t  command  always  adds  an  appropriate  coiapile_ho8t  ( . . . . 
recompile  »  yes .  . . . )  command  to  make  it  current;  the  recompile  parameter 
controls  which  other  obsolete  units  are  recompiled,  and  can  indeed  be  used  to  specify 
that  the  same  recompilations  are  done  as  if  the  recompile-host  command  was  applied 
subsequently.  The  generated  command  file  is  in  fs'-t  an  Ada  program  using  the  facilitira 
of  the  package  CLI.INTERFACE  provided  by  the  SWG  APSE  CLI.  The  name  of  the 
command  file  can  be  specified  using  the  output  parameter. 


autocompile_host  Command  Description 


Format 


PROCEDURE  autocompile -host  ( 


unit 

uni tname -type 

9 

output 

pathname -type 

9 

body-ind 

yes-no-answer 

:« 

no; 

bodies-only 

yes-no-answer 

:■ 

no; 

check 

y es -no-same -ansmer 

% 

• 

same; 

closure 

closure-choices 

1  m 

execute ; 

conditional 

yes-no-ansver 

:• 

yes; 

copy-source 

yes-no-answer 

:■ 

yes; 

inline 

yes-no-same -answer 

1  m 

same; 

library 

pathname -type 

:>  default -library; 

list 

pathname -type 

nolist ; 

log 

pathname -type 

1  m 

nolog ; 
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machine -code 

optimize 

recompile 


:  yes-no-answer  :«  no; 

:  yes-no-same -answer  :*  same; 
:  recompile-choices 

as-necessary  ); 


Description 

The  autocompile_host  command  determines  the  specified  closure  based 
on  the  specified  unit.  It  determines  the  set  of  units  for  which  a  new  source 
exists.  The  decision  is  based  on  the  full  file  name  which  is  stored  in  the 
library  together  with  the  modification  date.  If  the  newest  version  of  the  file 
has  a  newer  modification  date  than  the  modification  date  which  is  stored 
in  the  library  then  the  unit  is  said  to  be  "new”.  Units  which  were  en¬ 
tered  with  compile-host  ( analyze -dependency  »  yes,  ...)are 

always  said  to  be  new. 

The  autocompile-host  command  generates  a  command  file  containing  a 
compile_host  command  for  every  '’new”  tinit.  They  are  compiled  in  an  or¬ 
der  according  to  the  WITH  dependencies  and  the  "body-oP  and  "subunit- 
oF  relations.  It  is  assiimed  that  the  dependencies  do  not  change  in  the  new 
sources. 

Inline  dependencies  are  not  fully  considered  by  the  autocompile -host  com¬ 
mand.  The  autocompile-host  command  detects  that  a  unit  which  is  cur¬ 
rently  current  will  become  obsolete  because  it  depends  on  another  unit 
(because  of  an  inline  call)  which  will  be  (re)compiled.  The  autocompile- 
host  command  does  not  detect  that  a  unit  u  which  is  not  current  and  will 
be  (re)  compiled  xvill  become  dependent  on  another  unit  v  (because  of  an 
inline  call)  which  is  currently  current  and  will  be  (re)  compiled  too  but  after 
the  compilation  of  u.  In  this  case  u  will  become  obsolete  again  when  v  is 
(re)compiled. 

When  determining  the  compilation  order  the  autocompile-host  command 
tries  to  choose  the  same  order  as  last  time  by  considering  the  compilation 
dates  in  the  library,  where  possible.  This  strategy  should  solve  the  inline 
problem  in  most  cases. 

In  the  generated  command  file  each  compilation  of  a  unit  is  executed  im- 
der  the  condition  that  the  compilations  of  other  imits  it  depends  on  were 
successful.  Thus  useless  compilations  are  avoided.  The  generated  com¬ 
mand  file  only  works  correctly  if  the  library  has  not  been  modified  since 
the  command  file  was  generated. 

The  autocospile -host  command  does  not  fully  handle  the  problem  which 
arises  when  several  compilation  units  are  contained  within  one  source  file; 
it  only  avoids  the  multiple  compilation  of  the  same  source  file.  If  you  want 
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to  use  the  autocompile-host  command  it  is  recommended  not  to  keep 
several  compilation  units  in  one  source. 

Parameters 

unit  :  uni tnaae .type 

Specifies  the  unit  whose  closure  is  to  be  built. 

output  :  pathname .type 

Specifies  the  name  of  the  generated  command  file, 
body.ind  :  yesjio.answer  :>  no 

specifies  that  unit  stands  for  the  secondary  unit  with  that  name.  By 
default,  unit  denotes  the  library  unit.  If  unit  specifies  a  subunit,  the 
body.ind  parameter  need  not  be  specified. 

bodies.only  :  ye8.no.an8wer  :■  no 

Controls  whether  all  new  units  of  the  closure  are  compiled  (default)  or  only 
the  secondary  units.  This  parameter  is  only  effective  if  conditional  ■> 
no  is  specified. 

check  :  yes.no.sane.answer  :*  same 

check  ■>  same  means  that  the  same  value  for  the  parameter  check  is  in¬ 
cluded  in  the  generated  command  file  which  was  in  effect  at  the  last  compi¬ 
lation.  See  the  same  parameter  of  the  compile.ho8t  command.  Otherwise 
the  given  value  for  the  check  parameter  is  included  in  the  command  file. 
By  default  the  parameter  value  of  the  last  compilation  is  included. 

closure  :  closxire.choices  :*  execute 

Controls  the  kind  of  the  closure  which  is  built  and  which  is  the  basis  for  the 
investigation  for  new  sources,  closure  ■>  noclosure  means  that  only  the 
specified  imits  are  checked,  closure  »  compile  means  that  only  those 
units  on  which  the  specified  uxut(s)  transitively  depend(s)  are  regarded, 
closure  ■>  execute  means  that  -  in  addition  -  all  related  secondary  units 
and  the  units  they  depend  on  are  regarded.  If  closure  ■>  tree  is  speci¬ 
fied,  a  warning  is  issued  stating  that  this  is  not  meaningful  for  this  command 
and  that  the  default  value  is  taken  instead. 

By  default,  the  execution  closure  is  investigated  for  new  sources. 

conditional  :  yes.no.an8wer  :■  yes 

Controls  whether  the  check  for  new  sources  is  performed  (default),  no 
means  that  all  units  in  the  clostire  are  compiled  disregarding  the  modifica¬ 
tion  date.  This  parameter  is  useful  for  compiling  the  complete  closure  with 
different  parameters  than  the  last  time. 

copy .source  :  yes.no.answer  :■  yes 
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This  parameter  is  included  in  the  generated  command  file  and  thus  affects 
the  generated  compile_host  command.  See  the  same  parameter  with  the 
compile_ho8t  command.  This  parameter  has  no  effect  for  the  recompila¬ 
tion  of  obsolete  units  in  accordance  with  the  recompile^ost  command 
where  copy.source  »  yes  cannot  be  specified. 

inline  :  yes^no-same-answer  :>  same 

inline  ■>  same  means  that  the  same  value  for  the  parameter  inline  is 
included  in  the  generated  command  file  which  was  in  effect  at  the  last  com¬ 
pilation.  See  the  same  parameter  of  the  compile-host  command.  Other¬ 
wise  the  given  value  for  the  inline  parameter  is  included  in  the  command 
file. 

By  default  the  parameter  value  of  the  last  compilation  is  included, 
library  :  pathname -type  default -library 

Specifies  the  program  library  the  command  works  on.  The  autocompile- 
host  command  needs  read  access  to  the  library.  For  executing  the  gener¬ 
ated  command  file  you  need  write  access. 

The  default  is  ’CURRENT-USER’ ADA-LIBRARY (STD). 

list  :  pathname -type  :•  nolist 

This  parameter  is  included  in  the  generated  command  file  and  thus  affects 
the  generated  compile -host  command.  See  the  same  parameter  with  the 
compile-host  command. 

log  :  pathname -type  :«  nolog 

This  parameter  is  included  in  the  generated  command  file  and  thus  affects 
the  generated  compile -host  command.  See  the  same  parameter  with  the 
compile-host  command. 

machine-code  :  yes-no-answer  :«  no 

This  parameter  is  included  in  the  generated  command  file  and  thus  affects 
the  generated  compile-host  command.  See  the  same  parameter  with  the 
compile-host  command. 

optimize  :  yes-no-same-answer  :*  same 

optimize  ■>  same  means  that  the  same  value  for  the  parameter  opti¬ 
mize  is  included  in  the  generated  command  file  which  was  in  effect  at  the 
last  compilation.  See  the  same  parameter  of  the  compile -host  command. 
Otherwise  the  given  value  for  the  optimize  parameter  is  included  in  the 
command  file. 

By  default  the  parameter  value  of  the  last  compilation  is  included. 

recompile  :  recomplle-choices  :■  as-necessary 
Controls  whether  the  autocompile-host  command  additionally  recompiles 
obsolete  units.  With  recompile  ■>  as-necessary  only  those  units  are  re¬ 
compiled  which  are  obsolete  or  become  obsolete  and  are  used  by  other  units 
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which  are  to  be  compiled  because  of  new  sources,  recompile  ->  same, 
status  additionally  recompiles  those  units  of  the  considered  closure  which 
will  become  obsolete  during  the  compilation  of  new  sources.  This  option 
specifies  that  there  shall  not  be  more  obsolete  Tinits  after  the  execution  of 
the  command  file  than  before,  recompile  «>  as_possible  specifies  that 
all  obsolete  units  of  the  closure  and  all  units  which  will  become  obsolete  are 
recompiled.  This  is  equivalent  to  a  subsequent  call  of  the  recompile-host 
command  after  the  run  of  the  command  file  generated  by  the  autocompile- 
host  command. 


End  of  Command  Description 


4.3.3  First  compilation 

The  SYSTEAM  Ada  System  supports  the  first  compilation  of  sources  for  which  no 
compilation  order  is  known  by  the  compile -host  command  with  parameter  analyze- 
dependency  in  combination  with  the  autocompile -host  commamd. 

With  the  analyze -dependency  parameter  the  Compiler  accepts  sources  in  any  or¬ 
der  and  performs  the  syntax  analysis.  If  the  sources  are  syntactically  correct  the  units 
which  axe  defined  by  the  sources  au'e  entered  into  the  library.  Their  names,  their  depen¬ 
dencies  on  other  imits  and  the  name  of  the  source  files  are  stored  in  the  library.  Units 
which  are  entered  this  way  can  be  automatically  compiled  iising  the  autocompile - 
host  command,  i.e.  the  Autocompiler  computes  the  first  compilation  order  for  the 
new  sources.  The  name  of  the  main  program,  of  course,  mxist  be  known  and  specified 
with  the  autocompile -host  command. 

Note  that  the  compile_host  (....  analyze -dependency  *>  yes,  ...)  command 
replaces  other  units  in  the  library  with  the  same  name  as  a  new  one.  Thus  the  library 
may  be  modified  even  if  the  new  units  contain  semantic  errors;  but  the  errors  will  not 
be  detected  until  the  command  file  generated  by  the  autocompile-host  command  is 
run.  Hence  it  is  recommended  to  xise  an  empty  sublibrary  if  you  do  not  know  anything 
about  the  set  of  new  sources. 

If  there  are  several  sources  containing  units  with  the  same  name  the  last  analyzed  one 
will  be  kept  in  the  library. 

The  autocompile -host  command  issues  special  warnings  if  the  information  about  the 
new  units  is  incomplete  or  inconsistent. 
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4.4  Compiler  Listing 

By  default,  messages  of  the  Compiler  are  listed  on  *8tandard_output.  A  complete 
listing  can  be  cbtained  on  a  file  by  using  the  list  parameter  with  the  coopile-host, 
complete-host  or  link-host  command.  The  generated  listing  file(s)  will  contain  the 
whole  source  together  with  the  messages  of  the  Compiler/ Completer. 

The  listing  for  a  compilation  imit  starts  with  the  kind  and  the  name  of  the  current 
unit. 

Example: 


•  PROCEDURE  MAIN 


The  format  effectors  ASCH.HT,  ASCH.VT,  ASCH.CR,  ASCn.LF  and  ASCn.FF  are 
represented  by  a  character  in  the  listing.  In  any  case,  those  source  lines  which  are 
included  in  the  listing  are  numbered  to  make  locating  them  in  the  source  file  easy. 

Errors  are  classified  into  SYMBOL  ERROR,  SYNTAX  ERROR,  SEMANTIC  ERROR, 
RESTRICTION,  COMPILER  ERROR,  WARNING  and  INFORMATION: 

SYMBOL  ERROR 

pinpoints  an  inappropriate  lexical  element.  "Inappropriate”  can  mean  "inappro¬ 
priate  in  the  given  context”.  For  example,  ’2’  is  a  lexic2d  element  of  Ada,  but  it 
is  not  appropriate  in  the  literal  2#012#. 

SYNTAX  ERROR 

indicates  a  violation  of  the  Ada  syntax  rules  as  given  in  the  LRM( Appendix  E). 
SEMANTIC  ERROR 

indicates  a  violation  of  Ada  language  rules  other  than  the  syntax  rules. 
RESTRICTION 

indicates  a  restriction  of  this  implementation.  Examples  are  representation  clauses 
which  are  provided  by  the  language  but  are  not  supported  in  this  implementation; 
or  situations  in  which  the  internal  storage  capacity  of  the  Compiler  for  some  sort 
of  entity  is  exceeded. 

COMPILER  ERROR 

We  hope  you  will  never  see  a  message  of  this  sort. 

WARNING 

messages  tell  the  user  facts  which  are  likely  to  cause  errors  (for  example,  the 
raising  of  exceptions)  at  runtime. 

INFORMATION 

messages  tell  the  user  facts  which  may  be  useful  to  know  but  probably  do  not 
endanger  the  correct  running  of  the  program;  for  example,  that  a  library  unit 
named  in  a  context  clause  is  not  used  in  the  current  compilation  unit. 
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Warnings  and  information  messages  have  no  influence  on  the  success  of  a  compilation. 
If  there  are  any  other  diagnostic  messages,  the  compilation  was  unsuccessful. 

All  error  messages  are  self-explanatory.  If  a  sovirce  line  contains  errors,  the  error 
messages  for  that  source  line  are  printed  immediately  below  it.  The  exact  position  in 
the  source  to  which  an  error  message  refers  is  marked  by  a  number.  This  number  is 
also  used  to  relate  difierent  error  messages  given  for  one  line  to  their  respective  source 
positions. 

In  order  to  enable  semantic  analysis  to  be  carried  out  even  if  a  program  is  syntactically 
incorrect,  the  Compiler  corrects  syntax  errors  automatically  by  inserting  or  deleting 
symbols.  The  source  positions  of  insertions/deletions  are  marked  with  a  vertical  bar 
and  a  number.  The  niimber  has  the  same  meaning  as  above.  If  a  larger  region  of  the 
source  text  is  affected  by  a  syntax  correction,  this  region  is  located  for  the  user  by 
repeating  the  number  and  the  vertical  bar  at  the  end  as  well,  with  dots  in  between 
these  bracketing  markings. 

A  complete  Compiler  listing  follows  which  shows  the  most  common  kinds  of  error 
messages,  the  technique  for  marking  affected  regions  and  the  numbering  scheme  for 
relating  error  messages  to  source  positions.  It  is  slightly  modified  so  that  it  fits  into 
the  page  width  of  this  document: 


**4i*4i**4i**4i*itt4i*4i***4i*4t4i**«*it>****«*****4i4t*********#4t**4i************«**** 


**  ** 

**  SYSTEAM  ADA  -  COMPILER  VAX/VMS/CAIS  x  VAX/VMS  1.82  ** 

**  ** 

♦*  90-01-29/08:39:44  •* 

**  ** 


4>*ik**4i*«*4>>ti4i*4<4>**4i*it>4i**4t4ii***4>4i***4i4i4i****4i>l>4>4>*****4i****  ********  ********* 


Started  at  :  08:39:44 


-  PROCEDURE  LISTING-EXAMPLE 

1  PROCEDURE  listing-example  IS 

2  abc  :  procedure  integer  RANGE  0  ..  9  :■  lOE-1; 


>»»  SYNTAX  ERROR 

Symbol (s)  deleted  (1) 

»»>  SYMBOL  ERROR  (1)  An  exponent  for  an  integer  literal  must  not 

have  a  minus  sign 
3  def  integer  RANGE  0  ..  9; 
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II 

»»>  SYNTAX  ERROR 

Symbol(s)  inserted  (1):  : 

4  bool  :  boolean; 

5  BEGIN  . 

6  bool  :»  (abc  AND  (def  ♦  1))  OR  adf; 

12  3 

»»>  SEMANTIC  ERROR  (1)  Actual  parameter  for  LEFT  is  not  of 

appropriate  type 

»»>  SEMANTIC  ERROR  (2)  Actual  parameter  for  RIGHT  is  not  of 

appropriate  type 

»»>  SEMANTIC  ERROR  (3)  Identifier  ADF  not  declared 

7  END; 


PROCEDURE  LISTING_EXAMPLE 

*♦**  Number  of  Errors  :  6 

♦♦♦♦  Number  of  Warnings  :  0 


*«**  Number  of  Soiirce  Lines 
«***  Number  of  Comment  Lines 
****  Number  of  Lexical  Elements 
Code  Size  in  Bytes 
**♦*  Number  of  Diana  Nodes  created 
Symbol  Error  in  Line 
*•**  Syntax  Error  in  Line 
Semantic  Error  in  Line 
****  CPU  Time  used 


7 

0 


42 

0 

51 

2. 

2.  3. 

6. 

1.4  Seconds 
Finished  at  :  08:39:50 


mo***************!)!***************************************************** 
**  ** 

**  End  of  Ada  Compilation  CPU  Time  used  :  1.4  Seconds  ** 

1**  ** 

*4>*****4i***4i*4i4i***4i4i***4>4<*4i4>4*4>4i4t**4i4>*4i**4i**********e*4>**4i4>4i***4>4t*4i**** 
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5  Linking 


An  Ada  program  is  a  collection  of  units  used  by  a  main  program  which  controls  the 
execution.  The  main  program  must  be  a  parameterless  library  procedure;  any  paxam- 
eterless  library  procedure  within  a  program  library  can  be  used  as  a  main  program. 

The  VAX/VMS  system  linker  is  used  by  the  SYSTEAM  Ada  Linker. 


To  link  a  program,  call  the  llnk_host  command. 


link-host 


Command  Description 


Format 


PROCEDURE  link-host  ( 


unit 

executable 

check 

complete 

debug 

external 

inline 

library 

linke  r.opt i ons 

linker-listing 

list 

log 

machine -code 
map 

optimize 
—  not  used: 
relocatable 
selective 


uni  tname -type 
pathname -t3rpe 
yes-no-answer 
yes-no-answer 
yes-no-answer 
string 

yes-no-answer 
pathname -type 

•  m 

string 

pathneme  -type 
pathname -type 
pathname -type 
yes-no-answer 
pathname -type 
yes-no-answer 

yes-no-answer 

yes-no-answer 


:•  yes; 

:«  yes; 

:«  yes; 

•  s  nt*  • 

•  I 

yes; 

default -library ; 

•  X  nn  • 

•  I 

:*  nolist : 
:■  nolist; 
:«  nolog; 

:■  no; 

:«  nomap; 

:■  yes; 

:«  no; 

:■  no) ; 


Description 

The  link-host  command  invokes  the  SYSTEAM  Ada  Linker. 

The  Linker  builds  an  executable  image  which  can  be  started  by  exporting 
the  file  contents  to  a  VMS  file  and  using  the  RUN  command  or  by  using 
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appropriate  tools  of  the  SWG  APSE  (CLI,  Debugger)  or  by  using  CAIS 
operations  directly,  see  Chapter  6. 

Parameters 

unit  :  uni tname .type 

Specifies  the  library  unit  which  is  the  main  program.  This  must  be  a 
parameterless  library  procedure. 

executable  :  pathname -t3rpe 

Specifies  the  name  of  the  executable  image.  The  corresponding  node  is 
expected  to  exist  and  its  kind  should  be  the  predefined  kind  for  executable 
images. 

check  :  yes.no_answer  :*  yes 

This  parameter  is  passed  to  the  implicitly  invoked  Completer.  See  the  same 
parameter  with  the  complete  .host  command. 

complete  :  yes.no.answer  :*  yes 

Controls  whether  the  Completer  of  the  SYSTEAM  Ada  System  is  invoked 
before  the  Imlcing  is  performed.  Only  specify  complete  *>  no  if  you  are 
sure  that  there  are  no  instantiations  or  implicit  package  bodies  to  be  com¬ 
piled,  e.g.  if  you  repeat  the  llnk.ho8t  command  with  different  linker 
options. 

debug  :  yes  jxo.answer  :*  yes 

Controls  whether  debug  information  for  the  SWG  APSE  Debugger  is  to 
be  generated  and  included  in  the  executable  image.  If  the  program  shall 
run  imder  the  control  of  the  Debugger  it  must  be  linked  with  the  debug 
•>  yes  parameter. 

By  default,  debug  information  is  included  in  the  executable  image, 
external  :  string  :■  "" 

The  specified  string  is  directly  passed  to  the  VMS  linker.  It  serves  to  supply 
the  names  of  external  object  files  or  libraries  and  must  be  of  the  form 

string  ■  {  file-spec  [  /LIBRARY  ]  [  /INCLUDE  ]}.... 


Example: 

linlc.ho8t  (...,  external  ■>  "a.obj ,  b.olb/LIBRARY" ,  ...) 
inline  :  ye8.no-answer  :*  yes 

This  parameter  is  passed  to  the  implicitly  invoked  Completer.  See  the  same 
parameter  with  the  complete  Jiost  command. 
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library  :  pathname -type  :■  default -library 

Specifies  the  program  library  the  command  works  on.  The  link-host  com¬ 
mand  needs  write  access  to  the  library  unless  complete  *>  no  is  specified. 
If  complete  «>  no  is  specified,  the  link-host  commzmd  needs  only  read 
access.  The  default  library  is  ‘CURRENT-USER* AD A-LIBRARY (STD). 

linker-options  ;  string  :■  "" 

The  specified  string  is  directly  passed  to  the  VMS  linker.  It  serves  to 
supply  global  VMS  linker  parameters  for  special  purposes  and  must  be  of 
the  following  form: 

string  «  {  /vms-linker-parameter  }  ... 


Note  that  you  must  enclose  this  string  in  quotes  because  it  contains  pa¬ 
rameters  to  be  interpreted  by  the  VMS  linker.  You  must  not  use  the  /MAP 
and  /EXECUTABLE  parameters  here.  Use  instead  the  respective  parameters 
of  the  link-host  command. 

Examplt: 

link-host  ("main" . linker-options  ®>  "/CONTIGUOUS",  ...) 

linker-listing  :  pathname-type  :«  nolist 

Unless  linker-listing  «>  nolist  is  specified,  the  Linker  of  the  SYS- 
TEAM  Ada  System  produces  a  listing  in  the  given  file  containing  a  table 
of  symbols  which  are  used  for  linking  the  Ada  units.  This  table  is  helpful 
when  debugging  am  Ada  program  with  the  VMS  debugger. 

By  default,  the  Linker  does  not  produce  a  listing. 

list  :  pathname -type  :«  nolist 

This  parameter  is  passed  to  the  implicitly  invoked  Completer.  See  the  same 
parameter  with  the  complete-host  command. 

log  :  pathname-type  :•  nolog 

This  parameter  controls  whether  the  command  writes  additional  messages 
onto  the  specified  file,  and  is  also  passed  to  the  implicitly  invoked  Com¬ 
pleter.  See  the  same  parameter  with  the  complete -host  command. 

machine-code  :  yes-no-answer  :*  no 

This  parauneter  is  passed  to  the  implicitly  invoked  Completer.  See  the 
same  parameter  with  the  complete-host  command.  If  linker-listing  b 
unequal  nolist  and  machine-code  *>  yes  is  specified,  the  Linker  of  the 
SYSTEAM  Ada  System  appends  a  listing  with  the  machine  code  of  the 
program  starter  to  the  file  given  by  linker-listing.  The  program  starter 
is  a  routine  which  contains  the  calls  of  the  necessary  elaboration  routines 
and  a  call  for  the  Ada  subprogram  which  is  the  main  program. 
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By  default,  no  machine  code  listing  is  generated, 
aap  :  pathname .type  :*  nomap 

Specifies  whether  the  map  listing  of  the  VMS  linker  is  to  be  preserved  in 
the  specified  file. 

optimize  :  yes.no-answer  :»  yes 

This  parameter  is  passed  to  the  implicitly  invoked  Completer.  See  the  same 
parameter  with  the  complete.host  command. 

relocatable  :  ye8.mo-an8«rer  :*  no 

This  parameter  is  not  considered  by  this  SYSTEAM  Ada  System 
selective  :  ye8.no_an8wer  :*  no 

Controls  selective  linking.  Selective  linking  means  that  only  the  code  of 
those  subprograms  which  can  actually  be  called  is  included  in  the  exe¬ 
cutable  image.  By  default,  the  code  of  all  subprograms  of  all  packages  in 
the  execution  closure  of  the  main  procedure  is  linked  into  the  executable 
image. 

Note:  The  code  of  the  runtime  system  and  of  the  predefined  units  is  always 
linked  selectively. 


End  of  Command  Description 


The  VMS  Linker  is  called  by  the  SYSTEAM  Ada  Linker  through  the  means  provided 
by  the  package  CAIS_HQST_SPECIFTC_SERVTCES,  see  the  CAIS  User’s  Manual  for 
detsdls.  results  in 
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The  only  allowed  implementation  dependencies  correspond  to  implementation- 
dependent  pragmas,  to  certain  machine-dependent  conventions  as  mentioned  in 
Chapter  13  of  the  Ada  Standard,  and  to  certain  allowed  restrictions  on 
representation  clauses.  The  implementation-dependent  chauracteristics  of  this 
Ada  implementation,  as  described  in  this  Appendix,  are  provided  by  the 
customer.  Unless  specifically  noted  otherwise,  references  in  this  Appendix 
are  to  compiler  documentation  and  not  to  this  report.  Impl«nent  at  ion- 
specific  portions  of  the  package  STANDARD,  which  are  not  a  part  of  Appendix 
F,  are  contained  in  the  following  Predefined  Language  Enviroment  (chapter  13 
page  97  ff  of  the  compiler  user  manual). 


C-1 


Predefined  Language  Environment 


Chapter  13 


13  Predefined  Language  Environment 

The  predefined  language  environment  comprises  the  package  standard,  the  language* 
defined  library  imits  and  the  implementation-defined  library  units. 


13.1  The  Package  STANDARD 

The  specification  of  the  package  standard  is  outlined  here;  it  contains  all  predefined 
identifiers  of  the  implementation. 


PACKAGE  standard  IS 

TYPE  boolean  IS  (false ,  true) : 

The  predefined  relational  operators  for  this  type  are  as  follows: 

—  FUNCTIOK  *•«'•  (left,  right  :  boolean)  RETURN  boolean; 

—  FUNCTION  ••/«"  (left,  right  :  boolean)  RETURN  boolean; 

—  FUNCTION  "<"  (left,  right  :  boolean)  RETURN  boolean; 

—  FUNCTION  »•<«"  (left,  right  :  boolean)  RETURN  boolean; 

—  FUNCTION  (left,  right  ;  boolean)  RETURN  boolean; 

—  FUNCTION  ">■"  (left,  right  :  boolean)  RETURN  boolean; 

—  The  predefined  logical  operators  and  the  predefined  logical 

—  negation  operator  are  as  follows: 

—  FUNCTION  "AND"  (left,  right  :  boolean)  RETURN  boolean; 

—  FUNCTION  "OR"  (left,  right  :  boolean)  RETURN  boolean; 

—  FUNCTION  "XOR"  (left,  right  :  boolean)  RETURN  boolean; 

—  FUNCTION  "NOT"  (right  :  boolean)  RETURN  boolean; 

The  universal  type  universal_integer  is  predefined. 

TYPE  integer  IS  RANGE  -  2-147.483.648  ..  2-147-483.647; 

—  The  predefined  operators  for  this  type  are  as  follows: 

—  FUNCTION  (left,  right  :  integer)  RETURN  boolean; 

—  FUNCTION  "/■"  (left,  right  :  integer)  RETURN  boolean; 

—  FUNCTION  "<"  (left,  right  :  integer)  RETURN  boolean; 
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—  FUNCTION  (left,  right  :  integer)  RETURN  boolean; 

—  FUNCTION  ">••  (left,  right  :  integer)  RETURN  boolean; 

—  FUNCTION  ">•"  (left,  right  :  integer)  RETURN  boolean; 

—  FUNCTION  «♦"  (right  :  integer)  RETURN  integer; 

—  FUNCTION  (right  :  integer)  RETURN  integer; 

—  FUNCTION  "ABS"  (right  :  integer)  RETURN  integer; 

—  FUNCTION  "+"  (left,  right  :  integer)  RETURN  integer; 

—  FUNCTION  (left,  right  :  integer)  RETURN  integer; 

—  FUNCTION  (left,  right  :  integer)  RETURN  integer; 

—  FUNCTION  «/"  (left,  right  :  integer)  RETURN  integer; 

—  FUNCTION  "REM"  (left,  right  :  integer)  RETURN  integer; 

—  FUNCTION  "MOD"  (left,  right  :  integer)  RETURN  integer; 

—  FUNCTION  "**"  (left  :  integer;  right  :  integer)  RETURN  integer; 

—  An  implementation  may  provide  additional  predefined  integer  types. 

—  It  is  recommended  that  the  names  of  such  additional  types  end 

—  with  INTEGER  as  in  SHORT.INTEGER  or  LONG-INTEGER.  The 

—  specification  of  each  operator  for  the  type  universal-integer,  or 

—  for  any  additional  predefined  integer  type,  is  obtained  by 

—  replacing  INTEGER  by  the  name  of  the  type  in  the  specification 

—  of  the  corresponding  operator  of  the  type  INTEGER,  except  for  the 
right  operand  of  the  exponentiating  operator. 

TYPE  short -integer  IS  RANGE  -  32-768  ..  32-767; 

TYPE  short-short-lnteger  IS  RANGE  -  128  . .  127 ; 

—  The  universal  type  universal-real  is  predefined. 


TYPE  float  IS  DIGITS  9  RANGE 

-  16#0.7FFF-FFFF_FFFF_FF8#E+32  .. 
16#0 . 7FFF-FFFF_FFFF-FF8#E+32 ; 

—  the  corresponding  machine  type  is  D-FLOAT 


—  The  predefined  operators  for  this  type  are  as  follows: 


—  FUNCTION 

flail 

(left. 

“  FUNCTION 

** /s" 

(left . 

—  FUNCTION 

fi<if 

(left. 

—  FUNCTION 

»•<»« 

(left. 

—  FUNCTION 

fi>ii 

(left. 

—  FUNCTION 

(left. 

—  FUNCTION 

n^fi 

(right 

right  :  float)  RETURN  boolean; 
right  :  float)  RETURN  boolean; 
right  :  float)  RETURN  boolean; 
right  :  float)  RETURN  boolean; 
right  :  float)  RETURN  boolean; 
right  :  float)  RETURN  boolean; 

:  float)  RETURN  float; 
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—  FUNCTION  (right  :  float)  RETURN  float; 

—  FUNCTION  "ABS"  (right  :  float)  RETURN  float; 

--  FUNCTION  (left,  right  :  float)  RETURN  float; 

—  FUNCTION  (left,  right  :  float)  RETURN  float; 

—  FUNCTION  (left,  right  :  float)  RETURN  float; 

—  FUNCTION  «/"  (left,  right  :  float)  RETURN  float; 

—  FUNCTION  "*•"  (left  :  float;  right  :  integer)  RETURN  float; 

—  An  implementation  may  provide  additional  predefined  floating 

—  point  types.  It  is  recommended  that  the  names  of  such  additional 

—  types  end  with  FLOAT  as  in  SHORT-FLOAT  or  LONG-FLOAT. 

—  The  specification  of  each  operator  for  the  type  universal-real. 

—  or  for  any  additional  predefined  floating  point  type,  is  obtained 

—  by  replacing  FLOAT  by  the  name  of  the  type  in  the  specification  of 

—  the  corresponding  operator  of  the  type  FLOAT. 

TYPE  short-float  IS  DIGITS  6  RANGE 

-  16#0.7FFF-FF8#E+32  ..  16#0.7FFF-FF8#E+32; 

—  the  corresponding  machine  type  is  F-FLOAT 

TYPE  long-float  IS  DIGITS  15  RANGE 

-  16#0.7FFF_FFFF-FFFF_FC#E+256  .. 

16#0 . 7FFF-FFFF-FFFF-FC#E+256 ; 

—  the  corresponding  machine  type  is  G-FLOAT 

TYPE  long-long-float  IS  DIGITS  33  RANGE 

-  16#0.7FFF-FFFF_FFFF-FFFF-FFFF-FFFF_FFFF-C#E+4096  .. 

16#0 . 7FFF-FFFF-FFFF-FFFF-FFFF-FFFF-FFFF-C#E+4096 ; 

—  the  corresponding  machine  type  is  H-FLOAT 

—  In  addition,  the  following  operators  are  predefined  for  universal 

—  types: 

—  FUNCTION  (left  :  UNIVERSAL-INTEGER;  right  :  UNIVERSAL-REAL) 

RETURN  UNIVERSAL-REAL; 

—  FUNCTION  (left  :  UNIVERSAL-REAL;  right  :  UNIVERSAL-INTEGER) 

RETURN  UNIVERSAL-REAL; 

—  FUNCTION  "/"  (left  ;  UNIVERSAL-REAL;  right  :  UNIVERSAL-INTEGER) 

RETURN  UNIVERSAL-REAL; 

The  type  universal-fixed  is  predefined. 

—  The  only  operators  declared  for  this  type  are 

—  FUNCTION  (left  :  ANY-FIXED-POINT-TYPE; 

right  :  ANY-FIXED-POINT-TYPE)  RETURN  UNIVERSAL-FIXED; 
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—  FUNCTION  "/«  (left  :  ANY_FIXED_POINT_TYPE: 

right  :  ANY-FIXED_POINT_TYPE)  RETURN  UNIVERSAL_FIXED; 

—  The  following  characters  form  the  standard  ASCII  character  set. 

—  Character  literals  corresponding  to  control  characters  are  not 
— '  identifiers. 

TYPE  character  IS 


(nul. 

soh. 

stx. 

etx. 

eot . 

enq. 

ack. 

bel. 

bs. 

ht. 

If. 

vt. 

ff. 

cr. 

so. 

si. 

die. 

del. 

dc2. 

dc3. 

dc4. 

nak. 

syn. 

etb. 

can. 

em. 

sub. 

esc. 

fs. 

gs. 

rs. 

us. 

t  • 

• 

•  1  • 

•  • 

• 

•#*. 

•X'. 

•A’. 

t  s  • 

t 

•c. 

•)*. 

*♦*. 

•  • 

•  t 

•  •  • 

• 

e  t 

•  s 

•/•. 

•0*. 

•1*. 

•2*. 

•3*. 

•4'. 

'5'. 

•6'. 

•7'. 

•8‘. 

•9*. 

•  «  • 

• 

•  .  • 
e  e 

*  B  * 

•>•. 

•®*. 

•A*. 

•B*. 

•c*. 

•D'. 

•E'. 

•F'. 

•H*. 

•I*. 

•J*. 

•K*. 

•L'. 

•M'. 

•N'. 

•O'. 

•P*. 

•Q*. 

*R*. 

•S'. 

'T'. 

•U', 

•V'. 

•W'. 

•X’. 

•Y*. 

•Z'. 

•[•. 

•]•. 

S  A  s 

s 

f  s 

t  «  t 

t 

•a*. 

*b‘. 

•c'. 

*d'. 

•f. 

'g*. 

*h*. 

•i*. 

•j’. 

•k'. 

•!•. 

•»•, 

•n'. 

•o'. 

•P*. 

•q’. 

•r'. 

•s'. 

•t'. 

'u' , 

•v'. 

•w'. 

•x\ 

*7*. 

•!•. 

•  •  s 

» 

del) 

FOR  character  USE  —  128  ascii  CHARACTER  SET  WITHOUT  HOLES 

(0.  1.  2.  3.  4,  5 .  125.  126,  127); 

—  The  predefined  operators  for  the  type  CHARACTER  are  the  same  as 

—  for  any  enumeration  type. 

PACKAGE  ascii  IS 


Control  characters: 


nul 

CONSTANT 

character 

;b 

nul; 

soh 

CONSTANT 

character 

m 

soh; 

stx 

CONSTANT 

character 

stx; 

etx 

CONSTANT 

character 

etx; 

eot 

CONSTANT 

character 

•• 

eot; 

enq 

CONSTANT 

character 

m 

enq; 

ack 

CONSTANT 

character 

ack; 

bel 

CONSTANT 

character 

9 

bel; 

bs 

CONSTANT 

character 

im 

bs: 

ht 

CONSTANT 

character 

m 

ht; 

If 

CONSTANT 

character 

1  m 

If; 

vt 

CONSTANT 

character 

m 

vt: 

ff 

CONSTANT 

character 

1  m 

ff; 

cr 

CONSTANT 

character 

m 

cr; 

so 

CONSTANT 

character 

1  m 

so; 

si 

CONSTANT 

character 

m 

si: 

die 

CONSTANT 

character 

1  * 

die: 

del 

CONSTANT 

character 

m 

del: 

dc2 

CONSTANT 

character 

*  m 

dc2: 

dc3 

CONSTANT 

character 

u 

dc3; 

dc4 

CONSTANT 

character 

im 

dc4; 

nak 

CONSTANT 

character 

m 

nak; 

syn 

CONSTANT 

character 

im 

syn; 

etb 

CONSTANT 

character 

9 

etb; 

can 

CONSTANT 

character 

im 

can: 

em 

CONSTANT 

character 

9 

em; 

sub 

CONSTANT 

character 

im 

sub; 

esc 

CONSTANT 

character 

9 

esc; 
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fs  :  CONSTANT  character  :«  fs;  gs  :  CONSTANT  character  :*  gs; 
rs  :  CONSTANT  character  :«  rs;  us  :  CONSTANT  character  :«  us; 
del  :  CONSTANT  character  :•  del; 

—  Other  characters: 


exclaa 

CONSTANT  character 

quotation 

CONSTANT  character  :» 

sharp 

CONSTANT  character 

dollar 

CONSTANT  character  :» 

percent 

CONSTANT  character  :•  ’X’ 

ampersand 

CONSTANT  character  :«  ’A* 

colon 

CONSTANT  character 

semicolon 

CONSTANT  character 

query 

CONSTANT  character  :«  ’?’ 

at-sign 

CONSTANT  character  :■  ‘G* 

l.bracket 

CONSTANT  character 

back_sla8h 

CONSTANT  character  :■  ’\’ 

r-bracket 

CONSTANT  character  :»  ’) ’ 

circumflex 

CONSTANT  character 

underline 

CONSTANT  character 

grave 

CONSTANT  character 

1-brace 

CONSTANT  character 

bar 

CONSTANT  character  ;•  ’I’ 

r-brace 

CONSTANT  character  :• 

tilde 

CONSTANT  character  :» 

Ic-a  :  CONSTANT  cheiracter  :*  'a*; 
lc_z  :  CONSTANT  character  :«  'z*; 

END  ascii; 

—  Predefined  subtypes: 

SUBTYPE  natural  IS  integer  RANGE  0  ..  integer ’last; 
SUBTYPE  positive  IS  integer  RANGE  1  ..  integer ’ last ; 

—  Predefined  string  type: 

TYPE  string  IS  ARRAY (positive  RANGE  <>}  OF  character; 
PRAGMA  pack (string) ; 

—  The  predefined  operators  for  this  type  are  as  follows: 

**  FUNCTION  (left,  right  :  string)  RETURN  boolean: 
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—  FUNCTION  "/»"  (left,  right  :  string)  RETURN  boolean: 

—  FUNCTION  "<"  (left,  right  :  string)  RETURN  boolean: 

—  FUNCTION  "<«"  (left,  right  :  string)  RETURN  boolean: 

—  FUNCTION  ">"  (left,  right  :  string)  RETURN  boolean: 

—  FUNCTION  ">«"  (left,  right  :  string)  RETURN  boolean: 

—  FUNCTION  "4"  (left  :  string:  right  :  string)  RETURN  string: 

—  FUNCTION  "4"  (left  :  character:  right  :  string)  RETURN  string: 

—  FUNCTION  "4"  (left  :  string:  right  :  character)  RETURN  string: 

—  FUNCTION  "4**  (left  :  character:  right  :  character)  RETURN  string: 

TYPE  duration  IS  DELTA  2#1.0#E-14  RANGE 

-  131_072.0  ..  131_071-999_938_964_843_75: 

—  The  predefined  operators  for  the  type  DURATION  are  the  same 

—  as  for  any  fixed  point  type. 

—  the  predefined  exceptions: 


constraint -error 
numeric-error 
program-error 
storage -error 
tasking-error 


EXCEPTION 

EXCEPTION 

EXCEPTION 

EXCEPTION 

EXCEPTION 


END  standard: 


13.2  Language-Defined  Library  Units 


The  following  language-defined  library  units  are  included  in  the  master  library: 


The  package  system 
The  package  calendar 

The  generic  procedxire  imchecked-deallocation 

The  generic  function  unchecked-conversion 

The  package  io-exceptions 

The  generic  package  sequential-io 

The  generic  package  direct -io 

The  package  text-io 

The  package  low-level_io 
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13.3  Implementation-Defined  Library  Units 


The  master  library  also  contains  the  implementation-defined  library  xinits  collection, 
manager  and  timing. 


13.3.1  The  Package  COLLECTION_MANAGER 


In  addition  to  unchecked  storage  deallocation  (cf.  LRM(§13.10.1)),  this  implementa¬ 
tion  provides  the  generic  package  collection-manager,  which  has  advantages  over 
unchecked  deallocation  in  some  applications;  e.g.  it  makes  it  possible  to  clear  a  collec¬ 
tion  with  a  single  reset  operation.  See  §15.10  for  further  information  on  the  use  of  the 
collection  manager  and  tmchecked  deallocation. 

The  package  specification  is: 


GENERIC 

TYPE  elem  IS  LIMITED  PRIVATE; 

TYPE  acc  IS  ACCESS  elem; 

PACKAGE  collection-manager  IS 

TYPE  status  IS  LIMITED  PRIVATE: 

PROCEDURE  mark  (s  :  OUT  status) ; 

—  Marks  the  heap  of  type  ACC  and 

—  delivers  the  actual  status  of  this  heap. 

PROCEDURE  release  (s  :  IN  statiu) ; 

—  Restore  the  status  s  on  the  collection  of  ACC. 

—  RELEASE  without  previous  MARK  raises  CONSTRAINT-ERROR 

PROCEDURE  reset; 

—  Deallocate  all  objects  on  the  heap  of  ACC 
PRIVATE 

—  private  declarations 
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END  collectionjaanager; 


A  call  of  the  procedure  release  with  an  actual  parameter  s  causes  the  storage  occupied 
by  those  objects  of  type  acc  which  were  allocated  zdter  the  call  of  azurk  that  delivered 
s  as  result,  to  be  reclaimed.  A  call  of  reset  causes  the  storage  occupied  by  all  objects 
of  type  acc  which  have  been  allocated  so  fsr  to  be  reclaimed  and  cancels  the  effect  of 
all  previoTis  calb  of  aark. 

See  §15.2.1  for  information  on  static  and  dynamic  collections  and  the  attribute  STOR¬ 
AGE-SIZE. 


13.3.2  The  Package  TIMING 

The  package  tiaing  provides  a  facility  for  CPU-time  measmement.  The  package 
specification  b: 


PACKAGE  tiaing  IS 

FUNCTION  cpu-tiae  RETURN  natural: 
tialng-error  :  EXCEPTION; 

END  tiaing; 


A  call  of  the  function  cpu-tlae  returns  the  CPU-time  consumed  by  the  running  process 
in  millbeconds.  The  value  natural ’last  will  be  reached  after  24  days,  20  hours,  31 
minutes,  23  seconds  and  647  millbeconds. 

The  exception  tiaing-error  will  be  rsdsed  if  a  constraint-error  or  nuaeric-error 
occurs  within  cpu-tlae. 

Note  that  for  CAIS  based  processes  a  CAIS  service  b  available  to  request  the  consumed 
time.  The  package  provided  here  uses  facilities  of  VMS  to  perform  the  task. 
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15  Appendix  F 


This  chapter,  together  with  the  Chapters  16  and  17,  is  the  Appendix  F  required  in  the 
LRM,  in  which  all  ixnplementation>dependent  chsu'acteristics  of  an  Ada  implementation 
are  described. 


15.1  Implementation-Dependent  Pragmas 

The  form,  allowed  places,  and  effect  of  every  implementation-dependent  pragma  is 
stated  in  this  section. 


15.1.1  Predefined  Language  Pragmas 

The  form  and  allowed  places  of  the  following  pragmas  are  defined  by  the  language; 
their  effect  is  (at  least  partly)  implementation-dependent  and  stated  here. 

CONTROLLED 
has  no  effect. 


ELABORATE 

is  fully  implemented.  The  SYSTEAM  Ada  System  assiimes  a  PRAGMA  elaborate, 
i.e.  stores  a  unit  in  the  library  as  if  a  PRAGMA  elaborate  for  a  unit  u  was  given, 
if  the  compiled  unit  contains  an  instauitiation  of  u  (or  for  a  generic  program  unit  in 
u)  and  if  it  is  clear  that  u  must  have  been  elaborated  before  the  compiled  unit.  In 
this  case  an  appropriate  information  message  is  given.  By  this  means  it  is  avoided 
that  an  elaboration  order  is  chosen  which  would  lead  to  a  PROGRAM-ERROR 
when  elaborating  the  instantiation. 


INLINE 

Inline  expansion  of  subprograms  is  supported  with  the  following  restrictions: 
the  subprogrzmi  must  not  contain  declarations  of  other  subprograms,  tasks,  generic 
units  or  body  stubs.  If  the  subprogram  is  called  recursively  only  the  outer  call  of 
this  subprogram  will  be  expanded. 
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INTERFACE 

is  supported  for  ASSEMBLER  and  VMS.  PRAGMA  interface  (assembler. . . . ) 
provides  an  interface  with  the  internal  calling  conventions  of  the  SYSTEAM  Ada 
System.  See  §15.1.3  for  further  description. 

PRAGMA  interface  (VMS. . . .)  is  provided  to  support  the  VAX  procedure  calling 
standard.  §15.1.4  describes  how  to  use  this  pragma. 

PRAGMA  interface  should  always  be  used  in  connection  with  the  PRAGMA  exter¬ 
nal-name  (see  §15.1.2),  otherwise  the  Compiler  will  generate  an  internal  name 
that  leads  to  an  unsolved  reference  during  linking.  These  generated  names  are 
prefixed  with  an  underline;  therefore  the  user  should  not  use  names  beginning 
with  an  underline. 

LIST 

is  fully  implemented.  Note  that  a  listing  is  only  generated  when  the  list  option 
is  specified  accordingly  with  the  compile_ho8t  (or  complete-host  or  link-host) 
command. 


MEMORY-SIZE 

has  no  effect. 


OPTIMIZE 

has  no  effect;  but  see  also  the  optimize  parameter  with  the  compile-host  com¬ 
mand,  §4.1 


PACK 

see  §16.1. 


PAGE 

is  fully  implemented.  Note  that  form  feed  characters  in  the  source  do  not  cause 
a  new  page  in  the  listing.  They  are  -  as  well  the  other  format  effectors  (horizontal 
tabulation,  vertical  tabulation,  carriage  return,  and  line  feed)  -  replaced  by  a  ' 
character  in  the  listing. 


PRIORITY 

There  are  two  implementation-defined  aspects  of  this  pragma:  First,  the  range  of 
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the  subtype  priority,  and  second,  the  effect  on  scheduling  (Chapter  14)  of  not 
giving  this  pragma  for  a  task  or  main  program.  The  range  of  subtype  priority  is 
0  ..  15,  as  declared  in  the  predefined  library  package  system  (see  §15.3);  and  the 
effect  on  scheduling  of  leaving  the  priority  of  a  task  or  main  program  undefined  by 
not  giving  PRAGMA  priority  for  it  is  the  same  as  if  the  PRAGMA  priority  0 
had  been  given  (i.e.  the  task  has  the  lowest  priority). 


SHARED 

is  fully  supported. 


STORAGE_UNIT 
has  no  effect. 


SUPPRESS 

has  no  effect,  but  see  §15.1.2  for  the  implementation-defined  PRAGMA  suppress, 
all. 


SYSTEMJ^AME 
has  no  effect. 


15.1.2  Implementation-Defined  Pragmas 

BYTE-PACK 
see  §16.1. 


EXTERNAL-NAME  (<string>,  <ada-name>) 

<ada-name>  specifies  the  name  of  a  subprogram  or  of  an  object  declared  in  a 
library  package,  <string>  must  be  a  string  literal.  It  defines  the  external  name 
of  the  specified  item.  The  Compiler  uses  a  symbol  with  this  name  in  the  call 
instruction  for  the  subprogram.  The  subprogram  declaration  of  <ada.name>  must 
precede  this  pragma.  If  several  subprograms  with  the  same  name  satisfy  this 
requirement  the  pragma  refers  to  that  subprogram  which  is  declared  last. 

Upper  and  lower  cases  are  distinguished  within  <string>,  i.e.  <string>  must  be 
given  exactly  as  it  is  to  be  used  by  external  routines.  This  pragma  will  be  used  in 
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connection  with  the  pragmas  Interface  (vms)  or  interface  (assembler}  (see 
§15.1.1). 


RESIDENT  (<ada-name>) 

this  pragma  causes  the  value  of  the  object  to  be  held  in  memory  and  prevents 
assignments  of  a  value  to  the  object  <ada-name>  from  being  eliminated  by  the 
optimizer  (see  §4.1)  of  the  SYSTEAM  Ada  Compiler.  The  following  code  sequence 
demonstrates  the  intended  usage  of  the  pragma: 


X  :  integer: 
a  :  SYSTEM. address; 


•  •  • 

BEGIN 
X  :«  5: 

a  :«  x‘ ADDRESS: 
do.something  (a) : 


X 


6; 


let  do.something  be  a  non-local 

—  procedure 

—  a. ALL  will  be  read  in  the  body 

—  of  do_sonething 


If  this  code  sequence  is  compiled  by  the  SYSTEAM  Ada  Compiler  with  optimize 
•>  yes  the  statement  x  :  *  5 ;  will  be  eliminated  because  from  the  point  of  view  of 
the  optimizer  the  value  of  x  is  not  used  before  the  next  assignment  to  x.  Therefore 

PRAGMA  resident  (x) : 

should  be  inserted  after  the  declaration  of  x. 

This  pragma  can  be  applied  to  all  those  kinds  of  objects  for  which  the  address 
claTise  is  supported  (cf.  §16.5). 

It  will  often  be  used  in  connection  with  the  PRAGMA  interface  (vms .  . . .  ) 
(see  §15.1.4). 


SUPPRESS-ALL 

causes  all  the  runtime  checks  described  in  the  LRM(§11.7)  to  be  suppressed;  this 
pragma  is  only  allowed  at  the  start  of  a  compilation  before  the  first  compilation 
unit;  it  applies  to  the  whole  compilation. 
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15.1.3  Pragma  Interface  (Assembler,...) 


This  section  describes  the  internal  calling  conventions  of  the  SYSTEAM  Ada  System, 
which  are  the  same  ones  which  are  used  for  subprograms  for  which  a  PRAGMA  interf  ace 
(ASSEMBLER. . . . )  is  given.  Thus  the  actual  meaning  of  this  pragma  is  simply  that  the 
body  needs  and  must  not  be  provided  in  Ada,  but  in  object  form  using  the  external 
parameter  with  the  link-host  command. 

In  many  cases  it  is  more  convenient  to  follow  the  VAX  procedure  calling 
standard.  Therefore  the  SYSTEAM  Ada  System  provides  the  PRAGMA  In¬ 
terface  (VMS ....),  which  supports  the  standard  return  of  the  function  result 
and  the  standard  register  saving.  This  pragma  is  described  in  the  next  sec¬ 
tion. 

The  internal  calling  conventions  are  explained  in  four  steps: 

-  Parameter  passing  mechanism 

-  Ordering  of  parameters 

-  Type  mapping 

-  Saving  registers 


Parameter  passing  mechanism: 

The  parameters  of  a  call  to  a  subprogram  are  placed  by  the  caller  in  an  area  called 
parameter  block.  This  area  is  aligned  on  a  longword  boundary  amd  contains  parameter 
values  (for  parameter  of  scalar  types),  descriptors  (for  parameter  of  composite  types) 
and  alignment  gaps. 

For  a  function  subprogram  an  extra  field  is  assigned  at  the  beginning  of  the  parameter 
block  containing  the  function  result  upon  return.  Thus  the  return  value  of  a  function  is 
treated  like  an  anonymous  parameter  of  mode  OUT.  No  special  treatment  is  required 
for  a  fimction  result  except  for  return  values  of  an  unconstrained  array  type  (see  below). 

A  subprogram  is  called  using  the  CAXLG  instruction.  The  address  pointing  to  the 
beginning  of  the  parameter  block  and  the  code  address  of  the  subprogram  are  specified 
as  operands.  Within  the  csdled  subprogram  the  parameter  block  is  accessed  via  the 
argument  pointer  AP. 

In  general,  the  ordering  of  the  parameter  values  within  the  parameter  block  does  not 
agree  with  the  order  specified  in  the  Ada  subprogram  specification.  When  determining 
the  position  of  a  parameter  within  the  parameter  block  the  calling  mechanism  and  the 
size  and  alignment  requirements  of  the  parameter  type  are  considered.  The  size  and 
alignment  requirements  and  the  passing  mechanism  are  described  in  the  following: 

Scalar  paraoneters  or  parameters  of  access  types  are  passed  by  value,  i.e.  the  values 
of  the  actual  parameters  of  modes  IN  or  IN  OUT  are  copied  into  the  parameter  block 
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before  the  call.  Then,  after  the  subprogram  has  returned,  values  of  the  actual  pa¬ 
rameters  of  modes  IN  OUT  and  OUT  are  copied  out  of  the  parameter  block  into  the 
associated  actual  parameters.  The  parameters  are  aligned  within  the  parameter  block 
according  to  their  size:  A  parameter  with  a  size  of  8,  16  or  32  bit^  (or  a  multiple  of 
8  bits  greater  thsm  32)  has  an  alignment  of  1,  2  or  4  (which  means  that  the  object 
is  aligned  to  a  byte,  word  or  longword  boundary  within  the  parameter  block).  If  the 
size  of  the  parameter  is  not  a  multiple  of  8  bits  (which  may  be  achieved  by  attaching 
a  size  specification  to  the  parameter’s  type  in  case  of  an  integer,  enumeration  or  fixed 
point  type)  it  will  be  byte  aligned.  Parameters  of  access  types  are  always  aligned  to  a 
longword  boimdary. 

For  parameters  of  composite  types,  descriptors  are  placed  in  the  paraoneter  block  in¬ 
stead  of  the  complete  object  values.  A  descriptor  contains  the  address  of  the  actual 
parameter  object  and,  possibly,  further  information  dependent  on  the  specific  param¬ 
eter  type.  The  following  composite  parameter  types  axe  distinguished: 

•  A  parameter  of  a  constrained  array  type  is  passed  by  reference  for  all  pzirameter 
modes. 

•  For  a  parameter  of  an  unconstrained  array  type,  the  descriptor  consists  of  the 
address  of  the  actual  array  parameter  followed  by  the  bounds  for  each  index  range 
in  the  array  (i.e.  FIRST(l),  LAST(l),  FIRST(2),  LAST(2),  ...).  The  space  allo¬ 
cated  for  the  bound  elements  in  the  descriptor  depends  on  the  type  of  the  index 
constraint. 

•  For  functions  whose  return  value  is  an  unconstrained  zuray  type  a  descriptor  for  the 
array  is  passed  in  the  parameter  block  as  for  parameters  of  mode  OUT.  The  fields 
for  its  address  and  all  array  index  boimds  are  filled  up  by  the  function  before  it 
returns.  In  contrast  to  the  procedure  for  an  OUT  parameter,  the  function  allocates 
the  array  in  its  own  stack  space.  The  function  then  returns  without  releasing  its 
stack  space.  After  the  function  has  retiimed,  the  calling  routine  copies  the  array 
into  its  own  memory  space  and  then  deallocates  the  stack  memory  of  the  function. 

•  A  constrained  record  parameter  is  passed  by  reference  for  all  parameter  modes. 

•  For  an  unconstrained  record  parameter  of  mode  IN,  the  parameter  is  passed  by 
reference  using  the  address  pointing  to  the  record. 

If  the  parameter  has  mode  OUT  or  IN  OUT,  the  value  of  the  CONSTRAINED  at¬ 
tribute  applied  to  the  actual  parameter  is  passed  as  an  additional  boolean  IN 
parameter  (which  occupies  one  byte  in  the  parzoneter  block  and  is  aligned  to  a 
byte  boundary).  The  boolean  IN  parameter  and  the  address  are  treated  like  two 
consecutive  parameters  in  a  subprogram  specification,  i.e.  the  positions  of  the 
two  parameters  within  the  parameter  block  are  determined  independently  of  each 
other. 

For  all  kinds  of  composite  parameter  types  the  pointer  pointing  to  the  actual  param¬ 
eter  object  is  represented  by  a  32  bit  address,  which  is  alwajrs  aligned  to  a  longword 
boundary. 
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Ordering  of  parameters: 

The  ordering  of  the  parameters  in  the  parameter  block  is  determined  as  follows: 

The  paraimeters  are  processed  in  the  order  they  are  defined  in  the  Ada  subprogram 
specification.  For  a  function  the  return  value  is  treated  as  an  anonymous  parameter 
of  mode  OUT  at  the  start  of  the  parameter  list.  Because  of  the  size  and  alignmfTit. 
requirements  of  a  parameter  it  is  not  always  possible  to  place  parameters  in  such  a  way 
that  two  consecutive  parameters  are  densely  located  in  the  parauneter  block.  In  such  a 
situation  a  gap,  i.e.  a  piece  of  memory  space  which  is  not  associated  with  a  parameter, 
exists  between  two  adjacent  parameters.  Consequently,  the  size  of  the  parameter  block 
will  be  larger  than  the  sum  of  the  sizes  used  for  all  parameters.  In  order  to  minimize 
the  size  of  the  gaps  in  a  parameter  block  an  attempt  is  made  to  fill  each  gap  with  a 
parameter  that  occtirs  later  in  the  parameter  list.  If  during  the  allocation  of  space 
within  the  parameter  block  a  parzuneter  is  encountered  whose  size  and  alignmpnt  fit 
the  characteristics  of  an  available  gap,  then  this  gap  is  allocated  for  the  pau'ameter 
instead  of  appending  it  at  the  end  of  the  parauneter  block.  As  each  parameter  will  be 
aligned  to  a  byte,  word  or  longword  boundary  the  size  of  any  gap  may  be  one,  two 
or  three  bytes.  Every  gap  of  size  three  bytes  can  be  treated  as  two  gaps,  one  of  size 
one  byte  with  an  alignment  of  1  and  one  of  size  two  bytes  with  an  alignment  of  2.  So, 
if  a  parameter  of  size  two  is  to  be  allocated,  a  two  byte  gap,  if  available,  is  filled  up. 
A  parameter  of  size  one  will  fill  a  one  byte  gap.  If  none  exists  but  a  two  byte  gap  is 
available,  tlus  is  used  as  two  one  byte  gaps.  By  this  first  fit  algorithm  all  parameters 
are  processed  in  the  order  they  occur  in  the  Ada  program. 

A  called  subprogram  accesses  each  parameter  for  reading  or  writing  using  the  argument 
pointer  AP  incremented  by  an  offset  from  the  start  of  the  parameter  block  suitable  for 
the  parameter.  So  the  value  of  a  parameter  of  a  scalar  type  or  an  access  type  is  read 
(or  written)  directly  from  (into)  the  parameter  block.  For  a  parameter  of  a  composite 
type  the  actual  parameter  value  is  accessed  via  the  descriptor  stored  in  the  parameter 
block  which  contains  a  pointer  to  the  actual  object. 

Type  mapping: 

To  access  individual  components  of  array  or  record  types,  knowledge  about  the  type 
mapping  for  array  and  record  types  is  required.  An  array  is  stored  as  a  sequential  con¬ 
catenation  of  all  its  components.  Normzdly,  pad  bits  are  used  to  fill  each  component  to 
a  byte,  word,  longword  or  a  multiple  thereof  in  dependence  on  the  size  and  alignment 
requirements  of  the  components’  subtype.  This  padding  may  be  influenced  using  one 
of  the  PRAGMAS  pack  or  byte-pack  (cf.  §16.1).  The  offset  of  an  individual  array 
component  is  then  obtained  by  multiplying  the  padded  size  of  one  array  component  by 
the  number  of  components  stored  in  the  array  before  it.  This  number  may  be  deter¬ 
mined  from  the  number  of  elements  for  each  dimension  using  the  fact  that  the  array 
elements  are  stored  row  by  row.  (For  unconstrained  arrays  the  number  of  elements  for 
each  dimension  can  be  found  in  the  descriptor  stored  in  the  parameter  block.) 
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A  record  object  is  implemented  as  a  concatenation  of  its  components.  Initially,  loca¬ 
tions  are  reserved  for  those  components  that  have  a  component  clause  applied  to  them. 
Then  locations  for  all  other  components  are  reserved.  Any  gaps  large  enough  to  hold 
components  without  component  clauses  are  filled,  so  in  general  the  record  components 
are  rearreinged.  Components  in  record  variants  are  overlaid.  The  ordering  melanism 
of  the  components  within  a  record  is  in  principle  the  same  as  that  for  ordering  the 
parameters  in  the  parameter  block. 

A  record  may  hold  implementation-dependent  components  (cf.  §16.4).  For  a  record 
component  whose  size  depends  on  discriminants,  a  generated  component  holds  the 
offset  of  the  record  component  within  the  record  object.  If  a  record  type  includes 
variant  parts  there  may  be  a  generated  component  (cf.  §16.4)  holding  the  size  of  the 
record  object.  This  size  component  is  allocated  as  the  first  component  within  the  record 
object  if  this  location  is  not  reserved  by  a  component  clause.  Since  the  mapping  of 
record  types  is  rather  complex  you  should  introduce  record  component  clauses  for  each 
record  component  if  you  want  to  pass  an  object  of  that  type  to  a  non  Ada  subprogram 
to  be  sure  to  access  the  components  correctly. 


Saving  registers: 

The  last  aspect  of  the  calling  conventions  discussed  here  is  that  of  saving  registers.  The 
calling  subprogram  assumes  that  the  values  of  the  registers  RO  ..  R5  will  be  destroyed 
by  the  called  subprogram  and  saves  them  of  its  own  accord.  If  the  called  subprogram 
wants  to  modify  further  register  these  must  be  specified  in  the  procedure  entry  mask  to 
ensure  that  they  axe  pushed  on  the  stack  when  entering  the  subprogram  and  restored 
when  leaving  it.  This  differs  from  the  VAX  procedure  calling  standard,  which  demands 
that  all  registers  which  are  modified  by  the  subprogram  except  RO  and  Rl  must  be 
specified  in  the  mask. 


15.1.4  Pragma  Interlace(VMS,...) 

The  SYSTEAM  Ada  System  supports  PRAGMA  Interlace  (VMS. . . .). 

With  the  help  of  this  pragma  and  by  obeying  some  rules  (described  below)  subprograms 
can  be  cadled  which  follow  the  VAX  procedure  calling  standard.  As  the  user  must 
know  something  about  the  internal  calling  conventions  of  the  SYSTEAM  Ada  System 
we  recommend  reading  §15.1.3  before  reading  this  section  and  before  using  PRAGMA 
interlace (VMS, . . .). 

In  comparison  to  PRAGMA  interlace  (assembler, . . .)  PRAGMA  interlace  (VMS, . . .} 
has  two  additional  effects: 

•  If  the  subprogram  is  a  function  it  moves  the  function  result  in  RO  (or  RO  and  Rl 
for  results  of  size  8  byte)  into  the  allocated  area  at  the  beginning  of  the  parameter 
block. 
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•  It  controls  register  allocation  in  such  a  way  that  it  is  assumed  (according  to  the 
standard)  that  the  called  subprogram  only  modifies  the  registers  RO  and  Rl. 


The  code  for  subprograms  for  which  PRAGMA  Interface  (VMS, . . .)  is  specified  can 
reside  in  one  of  the  VMS  object  libraries,  which  are  searched  by  default,  or  can  be 
provided  using  the  external  parameter  with  the  link-host  command. 

In  order  to  follow  the  VAX  procedure  calling  standard  in  all  aspects  the  user  has  to 
cover  three  other  aspects: 

-  The  order  of  the  parameters  in  the  parameter  block  must  be  the  same  as  in  the 
Ada  procedure  specification.  Because  of  the  gap  optimization  -  as  described  in  the 
previoijs  section  -  you  can  enforce  this  by  using  only  parameters  of  4  byte  length  (for 
example  integer  or  access  types).  According  to  the  VAX  procedure  calling  standard 
shorter  parameters  are  not  used  anyway.  Note  that  the  Compiler  will  use  a  shorter 
representation  where  possible,  even  if  there  is  no  PRAGMA  pack  and  no  a  repre¬ 
sentation  clatise.  Thus  a  parameter  of  type  boolean  cannot  be  passed  by  value;  you 
miist  specify  integer  instead,  and  pass  the  appropriate  corresponding  integer  value  (0 
or  1).  Most  of  the  parameters  of  the  VMS  system  calls  or  of  the  run  time  library  axe 
passed  by  reference  anyway.  In  this  case  the  parzmaeter  can  be  declzired  to  be  of  type 
SYSTEM.ADDRESS  and  the  actual  parameter  is  then  <variable>’ADDRESS.  For 
the  function  result  the  same  rules  apply  as  for  the  parameters,  with  one  exception: 
You  can  also  use  the  (predefined)  types  FLOAT  and  LORG-FLOAT,  which  both  have  a 
size  of  8  bytes  (or  equivalent  floating  point  types  which  are  mapped  onto  these  two 
predefined  types.) 

-  It  is  an  additional  convention  that  the  first  parameter  in  the  pza-ameter  block  is  of 
type  integer  and  denotes  the  number  of  parameters  which  are  passed.  This  is  easily 
achieved  by  the  xiser  by  adding  a  first  parameter  of  type  integer  with  a  default  value. 
By  thb  means,  the  calls  are  not  affected,  provided  parameter  association  is  always 
named  and  not  positional. 

Note:  PRAGMA  interface (vms. . . .)  adds  an  additional  parameter  in  front  of  this  if 
the  subprogram  is  a  function.  The  Compiler  then  correctly  passes  the  address  in  the 
parameter  block  where  the  first  Ada  puameter  begins,  i.e  the  first  extra  parameter 
for  the  function  result,  which  exists  only  in  the  SYSTEAM  Ada  System  internal 
calling  conventions,  is  not  present  in  the  called  function. 

-  The  last  aspect  which  is  not  handled  by  the  SYSTEAM  Ada  System  is  the  support 
of  complex  types,  such  as  string  descriptors,  etc.  These  types  can  be  built  in  the  Ada 
program  by  appropriate  record  declarations,  with  representation  clauses  if  necessary. 

Summary:  If  you  use  only  4  byte  parameters  and  specifiy  PRAGMA  In'terf  ace  (VMS , . . . ) 

and  add  an  additional  first  integer  parameter  which  holds  the  number  of  pa¬ 
rameters,  then  the  procedure  call  generated  by  the  SYSTEAM  Ada  System 
conforms  to  the  VAX  procedure  calling  standard. 
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Note:  For  parameters  which  are  passed  by  reference  by  declaring  the  formal  parameter 
of  type  SYSTEM.ADDRESS  and  passing  the  parameter  by  <object>’ADDRESS,  the 
SYSTEAM  Ada  System  typically  needs  PRAGMA  resident  to  be  specified  for  the  actual 
parameter.  This  prevents  the  Optimizer  of  the  SYSTEAM  Ada  System  from  holding 
the  value  of  the  parameter  in  a  register  or  even  eliminating  it  completely,  because  there 
is  no  further  access  to  the  parameter  -  from  the  Optimizers  point  of  view.  (cf.  §15.1.2) 

The  SYSTEAM  Ada  System  does  not  check  the  observance  of  the  VAX  procedxire 
calling  standard.  If  it  is  violated  the  call  of  the  non  Ada  routine  will  be  erroneous. 

The  following  example  shows  the  intended  usage  of  PRAGMA  interface  (VMS , . . . )  to 
call  a  VMS  system  routine.  First  some  types  with  representation  specifications  and 
objects  of  those  types  are  declared.  Then  the  Ada  specification  of  ays.qio  appears  and 
is  related  through  appropriate  pragmas  to  the  system  service  SYSSQIO.  It  is  assumed 
that  the  function  is  called  in  the  body  of  the  main  program.  This  example  further 
shows  the  use  of  interrupt  entries  with  the  SYSTEAM  Ada  System  (cf.  §16.5.1.2). 


WITH  system,  text.io; 
PROCEDURE  vms_routine  IS 


readprompt  :  CONSTANT  :«  65; 

m_noecho  :  CONSTANT  :»  64; 

null-address  :  CONSTANT  system. address  :*  system. address -zero; 


TYPE  iosb-type  IS 
RECORD 

condition- value 
transf er .count 
dev-spec-info 
END  RECORD; 


:  short-integer; 
:  short-integer; 
:  integer; 


FOR  iosb-type  USE 
RECORD 

condition- value  AT  0  RANGE  0  . .  15 ; 
trtoisf  er-count  AT  0  RANGE  16  . .  31 ; 
dev-spec.info  AT  4  RANGE  0  ..31; 

END  RECORD; 


channel  number 
return  code 

io-buffer  :  string  (1  . .  80) ; 


chan  :  integer; 

res  :  integer; 
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PRAGMA  resident  (io.buffer) ; 

prompt.buffer  :  string  (1  ..  2)  :■  "* 

PRAGMA  resident  (prompt_buffer) ; 

iosb  :  iosb-type ; 

PRAGMA  resident  (iosb) : 

FUNCTION  sys-qio  (n  :  integer  :*  12;  number  of  parameters 

efn  :  integer  :*  0;  —  event  flag  number 

chan  :  integer:  —  channel 

fiinc  :  integer;  —  function  code 

iosb  :  system. address  :*  null-address; 

—  10  status  block 

astadr  :  system. address  :«  null-address; 

—  AST  routine 

astprm  :  Integer  0; 

pi  :  system. address:  —  10  buffer 

p2  :  integer  :■  0;  -“10  buffer  length 

p3  :  integer  :*  0;  —  timeout 

p4  :  integer  ;»  0;  read  terminator 

pS  :  system. address  :•  null-address; 

—  prompt  buffer 

p6  :  integer  :■  0)  --  prompt  buffer  length 

RETURN  integer; 

PRAGMA  interface  (vms ,  sys.qio) ; 

—  and  additionally 

PRAGMA  external-name  ("SYSSQIO".  sys-qio) ; 

vector-number  :  CONSTANT  :«  0; 

ast-parameter  :  CONSTANT  :«  123-456-789; 

TASK  buffer-handler  IS 
PRAGMA  priority  (15) ; 

ENTRY  buffer-read  (param  :  integer); 

FOR  buffer-read  USE  AT  system. interrupt -vector  (vector .number) ; 
END  buffer-handler; 

TASK  BODY  buffer-handler  IS 
BEGIN 

ACCEPT  buffer-read  (param  :  integer)  DO 
t ext -lo. put -line  (io-buffer) ; 

END  buffer-read; 

END  b\iffer-handler; 
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BEGIK 

—  after  an  appropriate  ASSIGN  channel  call: 
res  :■ 

sys.qlo  (chan  •>  chan. 

func  ■>  readprompt  *  &_noecho. 
iosb  •>  losb ‘address. 

astadr  *>  system. ast-service  (vector-number) . 

astprm  *>  ast-parameter. 

pi  «>  lo-buffer* address. 

p2  •>  io-btiffer’ length. 

p3  ■>  0. 

p4  ■>  0. 

p5  •>  prompt-buffer ‘address. 
p6  ■>  prompt-buffer ‘length) ; 

END  vms-routlne: 


15.2  Implementation-Dependent  Attributes 


The  name,  type  and  implementation-dependent  aspects  of  every  implementation-de¬ 
pendent  attribute  is  stated  in  this  section. 


15.2.1  Language-Defined  Attributes 

The  name  and  type  of  all  the  language-defined  attributes  are  as  given  in  the  LRM.  We 
note  here  only  the  implementation-dependent  aspects. 


ADDRESS 

If  this  attribute  is  applied  to  an  object  for  which  storage  is  allocated,  it  yields  the 
address  of  the  first  storage  unit  that  is  occupied  by  the  object. 

If  it  is  applied  to  a  subprogram  or  to  a  task,  it  yields  the  address  of  the  entry 
point  of  the  subprogram  or  task  body. 

If  it  is  applied  to  a  task  entry  for  which  an  address  clause  is  given,  it  yields  the 
address  given  in  the  address  clause. 

For  any  other  entity  this  attribute  is  not  supported  and  will  return  the  value 
system . address -zero. 
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IMAGE 

The  image  of  a  character  other  than  a  graphic  chc^xacter  (cf.  LRM(§3.5.5(11))) 
is  the  string  obtained  by  replacing  each  italic  character  in  the  indication  of  the 
character  literal  (given  in  the  LRM(Annex  C(13)))  by  the  corresponding  upper¬ 
case  character.  For  example,  character ‘Image  (ntx/)  *  "NUL". 


MACHINE-OVERFLOWS 

Yields  true  for  each  real  type  or  subtype. 


MACHINE -ROUNDS 

Yields  true  for  each  real  type  or  subtype. 


STORAGE-SIZE 

The  value  delivered  by  this  attribute  applied  to  an  access  type  is  as  follows: 

If  a  length  specification  (STORAGE-SIZE,  see  §16.2)  has  been  given  for  that  type 
(static  collection),  the  attribute  delivers  that  specified  value. 

In  case  of  a  dynamic  collection,  i.e.  no  length  specification  by  STORAGE-SIZE  given 
for  the  access  type,  the  attribute  delivers  the  number  of  storage  units  cxirrently 
allocated  for  the  collection.  Note  that  dynamic  collections  are  extended  if  needed. 
If  the  collection  manager  (cf.  §13.3.1)  is  used  for  a  dynamic  collection  the  attribute 
delivers  the  number  of  storage  units  currently  allocated  for  the  collection.  Note 
that  in  this  case  the  number  of  storage  imits  currently  allocated  may  be  decreased 
by  release  operations. 

The  value  delivered  by  this  attribute  applied  to  a  task  type  or  task  object  is  as 
follows: 

If  a  length  specification  (STORAGE-SIZE,  see  §16.2)  has  been  given  for  the  task 
type,  the  attribute  delivers  that  specified  value;  otherwise,  the  default  value  is 
retximed. 


15.2.2  Implementation-Defined  Attributes 
There  are  no  implementation-defined  attributes. 
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15.3  Specification  of  the  Package  SYSTEM 

The  package  system  as  required  in  the  LRM(§13.7)  is  reprinted  here  with  all  imple¬ 
mentation-dependent  characteristics  and  extensions  filled  in. 


PACKAGE  system  IS 

TYPE  designated-by_address  IS  LIMITED  PRIVATE: 

TYPE  address  IS  ACCESS  designated-by-address : 
FOR  address ‘storage.slze  USE  0: 


address-zero  ;  CONSTANT  address  NULL; 

TYPE  name  IS  (vax_vms) ; 

system-name 

CONSTANT  name  :«  vax-vms; 

storage-\init 

CONSTANT 

•8; 

memory-size 

CONSTANT 

«  2  •*  31; 

min-int 

CONSTANT 

«  -  2  **  31; 

max-int 

CONSTANT 

-  2  ♦*  31  -  1; 

max-digits 

CONSTANT 

-  33; 

max -mantissa 

CONSTANT 

-  31; 

fine-delta 

CONSTANT 

-  2.0  **  (-31): 

tick 

CONSTANT 

»  0.01; 

SUBTYPE  priority  IS  integer  RANGE  0 
FUNCTION  (left  :  address;  right 
FUNCTION  (left  :  integer;  right 
FUNCTION  (left  :  address:  right 
FUNCTION  (left  :  address;  right 
SUBTYPE  external-address  IS  STRING: 


. .  15; 

;  integer)  RETURN  address; 
:  address)  RETURN  address; 
:  integer)  RETURN  address; 
:  address)  RETURN  integer; 


External  addresses  use  hexadecimal  notation  with  characters 
—  ’a’..*f’  and  'A*..’F*.  For  instance: 

"TFFFFFFF" 

"80000000'* 
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"8”  represents  the  same  address  as  "00000008" 

FUNCTION  convert-address  (addr  :  external-address)  RETURN  address; 

"  CONSTRAINT-ERROR  is  raised  if  the  external  address  ADDR 

—  is  the  empty  string,  contains  characters  other  than 

—  '0'..*9’,  •a‘..*f.  *  A  •..*?*  or  if  the  resulting  address 

—  value  cannot  be  represented  with  32  bits. 

FUNCTION  convert-address  (addr  :  address)  RETURN  external-address; 

—  The  resulting  external  address  consists  of  exactly  8 

—  characters  •0*..*9*.  •A’..*F*. 


TYPE  interrupt -number  IS  RANGE  0  . .  31 ; 

TYPE  interrupt-addresses  IS  ARRAY  (interrupt-number)  OF  address; 


ast-service , 

interrupt-vector  :  interrupt-addresses ; 
non-ada-error  :  EXCEPTION; 

—  non-ada-error  is  raised,  if  some  event  occxirs  which  does  not 

—  correspond  to  any  situation  covered  by  Ada.  e.g.: 

--  illegal  Instruction  encountered 

error  during  address  translation 
illegal  address 


TYPE  exception-id  IS  NEW  address; 

no-except ion-id  :  CONSTANT  exception-id  :>  address-zero ; 


—  Coding  of  the  predefined  exceptions: 


constraint-error_id 
numeric -error-id 
program-error-id 
storage-error-id 
tasking-error-id 

non-ada-error-id 

status. error-id 
Bode.error-id 
name-error-id 
use-error-id 


CONSTANT  exception-id 
CONSTANT  exception-id 
CONSTANT  exception-id 
CONSTANT  exception-id 
CONSTANT  exception-id 

:  CONSTANT  exception-id 

:  CONSTANT  exception-id 
:  CONSTANT  exception-id 
:  CONSTANT  exception-id 
:  CONSTANT  exception-id 
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device_error_id  :  CONSTANT  exception-id  :»  ...  : 

end-error-id  :  CONSTANT  exception-id  ...  ; 

data-error-id  :  CONSTANT  exception-id  :»  ...  ; 

layout-error-id  :  CONSTANT  exception-id  :«  ...  ; 

time-error-id  :  CONSTANT  exception-id  :■  ...  : 

TYPE  argument-array  IS  ARRAY  (i  . .  4)  OF  integer: 

no-condit ion-name  :  CONSTANT  :*  1; 

TYPE  exception-information  IS 
RECORD 

excp-id  :  exception-id: 

—  Identification  of  the  exception.  The  codings  of 

—  the  predefined  exceptions  are  given  above. 

code-addr  :  address: 

—  Code  address  where  the  exception  occurred.  Depending 

—  on  the  kind  of  the  exception  it  may  be  be  address  of 

—  the  instruction  which  caused  the  exception,  or  it 
**  may  be  the  address  of  the  instruction  which  would 

-*  have  been  executed  if  the  exception  had  not  occurred. 

condition-name  :  integer: 

—  If  />  no-condition-name .  the  exception  was  caused 

—  by  a  condition.  In  this  case,  the  condition  name 

—  and  other  following  information  made  available. 

nr-of -arguments  :  integer:  —  in  the  range  1  ..4. 

arguments  :  argument -array: 

—  Only  arguments  (1  . .  nr-of -arguments)  are  valid. 

—  It  contains  a  copy  of  the  optional  information 

—  supplied  by  VMS  in  the  argument  array  when  the 

—  condition  occurred.  If  there  are  more  than  4  optional 

—  entries  in  the  argument  array,  only  the  first  4 

—  are  copied. 

psl  :  integer; 

—  The  processor  status  longword. 
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END  RECORD: 


PROCEDURE  get-exception-information 

(excp-info  :  OUT  exception-information) ; 

--  The  subprogram  get-exception_information  must  only  be  called 

—  from  within  an  exception  handler  BEFORE  ANY  OTHER  EXCEPTION 

—  IS  RAISED.  It  then  returns  the  information  record  about  the 

—  actually  handled  exception. 

—  Otherwise,  its  result  is  undefined. 


TYPE  exit-code  IS  NEW  integer: 


»  The  exit  codes  WARNING.  ERROR  and  SEVERE-ERROR  set  the  bit  28. 
—  which  inhibits  the  display  of  the  error  message  0  by  the  DCL 


—  interpreter 
warning 
success 
error 

information 
severe-error 


CONSTANT  exit-code 
CONSTANT  exit-code 
CONSTANT  exit-code 
CONSTANT  exit-code 
CONSTANT  exit-code 


16» 10000000# 
16#00000001« 
16# 10000002# 
16#00000003# 
16# 10000004# 


PROCEDURE  set-exit-Code  (val  :  exit-code) : 


—  Specifies  the  exit  code  which  is  returned  to  the 

*■-  operating  system  if  the  Ada  program  terminates  normally. 
*■*  The  default  exit  code  is  'success*.  If  the  program  is 

—  abandoned  because  of  an  exception,  the  exit  code  is 

—  ’ error ' . 


PRIVATE 

—  private  declarations 
END  system: 


15.4  Restrictions  on  Representation  Clauses 

See  Chapter  16  of  this  manual. 
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15.5  Conventions  for  Implementation- Generated  Names 

There  are  implementation  generated  components  but  these  have  no  names,  (cf.  §16.4 
of  this  manual). 

15.6  Expressions  in  Address  Clauses 

See  §16.5  of  this  manual. 


15.7  Restrictions  on  Unchecked  Conversions 

The  implementation  supports  tmchecked  type  conversions  for  all  kinds  of  sotirce  and 
target  types  with  the  restriction  that  the  target  type  must  not  be  an  imconstrained 
array  type.  The  result  value  of  the  unchecked  conversion  is  unpredictable,  if 

target.type ‘SIZE  >  source-type ‘SIZE 


15.8  Characteristics  of  the  Input-Output  Packages 


The  implementation-dependent  characteristics  of  the  input-output  packages  as  defined 
in  the  LRM(Chapter  14)  are  reported  in  Chapter  17  of  this  manual. 


15.9  Requirements  for  a  Main  Program 

A  main  program  must  be  a  parameterless  library  procedure.  This  procedure  may  be 
a  generic  instantiation;  the  generic  procedure  need  not  be  a  library  unit. 
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15.10  Unchecked  Storage  Deallocation 

The  generic  procedure  unchecked.deallocation  is  provided;  the  effect  of  calling  an 

instance  of  this  procediire  is  as  described  in  the  LRM(§13.10.1). 

The  implementation  also  provides  an  implementation-defined  package  collection. 

manager,  which  has  advantages  over  unchecked  deallocation  in  some  applications  (cf. 

§13.3.1). 

Unchecked  deallocation  and  operations  of  the  collection.manager  can  be  combined 

as  follows: 

•  collection-manager .  reset  can  be  applied  to  a  collection  on  which  unchecked 
deallocation  has  ^o  been  used.  The  effect  is  that  storage  of  2dl  objects  of  the 
collection  is  reclaimed. 

•  After  the  first  unchecked-deallocation  (release)  on  a  collection,  all  following 
calls  of  release  (unchecked  deallocation)  until  the  next  reset  have  no  effect, 
i.e.  storage  is  not  reclaimed. 

•  after  a  reset  a  collection  caui  be  managed  by  mark  and  release  (resp.  unchecked- 
deallocation)  with  the  normal  effect  even  if  it  was  managed  by  unchecked- 
deallocation  (resp.  mark  and  release)  before  the  reset. 


15.11  Machine  Code  Insertions 

A  package  machine  .code  is  not  provided  and  machine  code  insertions  are  not  sup¬ 
ported. 


15.12  Numeric  Error 


The  predefined  exception  numeric-error  is  never  raised  implicitly  by  any  predefined 
operation;  instead  the  predefined  exception  constraint.error  is  raised. 
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